Mit Server verbinden (IRC)

Question

Hi,

ich versuche mich mit euIRC zu verbinden. Hier mein Code:
Public Class Form1
Public countBytesFromServer As Int32
Public message() As Byte
Public server As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Public bytes(1024) As Byte
Public empfangenedaten As String
Public ipHost As IPHostEntry = Dns.Resolve("irc.bre.de.euirc.net")
Public IP As IPAddress = ipHost.AddressList(0)
Public serverAddress As IPAddress = ipHost.AddressList(0)
Public EP As New IPEndPoint(IP, 6667)


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ircstatus.Text = "Willkommen bei ChatStar!"
Dim bytes(1024) As Byte
'Dim countBytesFromServer As Int32

End Sub



Private Sub EuIRCToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EuIRCToolStripMenuItem.Click






Try
'Connecting
ircstatus.Text += vbCrLf & "Verbindung wird aufgebaut..."
server.Connect(EP)

Dim port As Int32 = CType(server.RemoteEndPoint, IPEndPoint).Address.ToString()

Dim tcpip As String = CType(server.RemoteEndPoint, IPEndPoint).Address.ToString()

ircstatus.Text += vbCrLf & "Verbunden"

'Daten senden

sendmes("NICK xxskxx2" & vbCrLf)

sendmes("USER chump chump chump chump chump" & vbCrLf)
empmes()




Catch ex As Exception
ircstatus.Text += vbCrLf & "Verbindung abgebrochen!"
Finally
server.Close()

End Try




End Sub


Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
AboutBox.Show()
End Sub

Sub sendmes(ByVal mes As String)
message = Encoding.ASCII.GetBytes(mes)
server.Send(message)
ircstatus.Text += vbCrLf & mes

End Sub
Sub empmes()

countBytesFromServer = server.Receive(bytes)
empfangenedaten = Encoding.ASCII.GetString(bytes, 0, countBytesFromServer)
If InStr(empfangenedaten, "PING") = True Then


sendmes(vbCrLf & "PONG " + Split(empfangenedaten, " ")(1))
ircstatus.Text += vbCrLf & "PONG " + Split(empfangenedaten, " ")(1)
End If
ircstatus.Text += vbCrLf & empfangenedaten


End Sub



Das Problem... wenn der euIRC Server PING: id schickt sollte er ja mit PONG: id antworten... aber dieser geht nicht mal in die If schleife....

vlt. könnt ihr mehr helfen...

mfg xxskxx