cliente irc visual basic 6

Estoy intentando ahcer un cliente irc,peor no logro que me mande el
PING/PONG...

mee quedado aki...

############################################
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos

If Text1.Text = "" Then
Text1.Text = datos
Else
Text1.Text = Text1.Text & vbCrLf & datos
End If

If Mid(datos, 1, 6) = "PING :" Then
ws.SendData "PONG :" & Mid(datos, 7, Len(datos))
End If

Text1.SelStart = Len(Text1.Text)
End Sub
############################################

que tengo que ahces un array o split?como s epodria ahcer esto para cojer
lineas ya que en el text1.text al conectar sale el (PING :numero),pero no

detecta el
( If Mid(datos, 1, 6) = "PING :" Then),por q coje 179 caractees de
repente la variable (DATOS),que puedo hacer?..

salu2