need source code without using any .dll to connect with nimbuzz

Imports System.Net.Sockets
Imports System.Threading
Imports System.Text

Public Class Form1
    Private tcp As TcpClient = New TcpClient
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        tcp.Client.Connect("o.nimbuzz.com", 5222)
        If tcp.Client.Connected Then
            Dim s As String = ("<stream:stream to='nimbuzz.com' xmlns='jabber:client' xmlns:stream='http://etherx.jabber.org/streams' version='1.0' xml:lang='en'><auth mechanism='PLAIN' xmlns='urn:ietf:params:xml:ns:xmpp-sasl'>" & Convert.ToBase64String(Encoding.UTF8.GetBytes(String.Concat(New Object() {ChrW(0), TextBox1.Text, ChrW(0), TextBox2.Text}))) & "</auth>")
            tcp.Client.Send(Encoding.UTF8.GetBytes(s))
        End If
        Dim th As New Threading.Thread(AddressOf recieve)
        th.Start()
    End Sub
    Private Sub recieve()
        Try
            Do While tcp.Connected
                Dim buffer As Byte() = New Byte(tcp.ReceiveBufferSize - 1) {}
                Dim num As Integer = tcp.Client.Receive(buffer)
                If (num <> 0) Then
                    If (num < buffer.Length) Then
                        Dim buffer2 As Byte() = New Byte(num - 1) {}
                        Dim i As Integer
                        For i = 0 To num - 1
                            buffer2(i) = buffer(i)
                        Next i
                        buffer = buffer2
                    End If
                    Dim xml As String = Encoding.UTF8.GetString(buffer)
                    ReadXml(xml)
                End If
            Loop
        Catch
        End Try
    End Sub
    Private Sub ReadXml(ByVal xml As String)
        xml = xml.Replace("'", """")
        If xml.Contains("success xmlns=""urn:ietf:params:xml:ns:xmpp-sasl""") Then
            MessageBox.Show("Connected")
        ElseIf xml.Contains("not-authorized") Then
            MessageBox.Show("Wrong Us or Ps")
        End If
    End Sub
End Class