Behöver hjälp med en funktion

Hallå!

Jag har ett litet problem. Jag håller på med ett chat-program och jag vill att när en person börjar sin text med / så ska det tolkas som ett kommando. Jag har precis börjat med Visual Basic men jag har hållt på med ASP en del innan. Jag har försökt använda följande kod för att kolla om det är ett kommando och isåfall vilket men det funkar inget vidare. Det händer inget utan allt läggs bara till i serverns logg, inget annat händer. Nu undrar jag om ni skulle kunna hjälpa mig med detta.

Här är koden:

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
Private Sub Socket_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim data As String
' Läs in den inkommande datan i strängen data
Socket(Index).GetData data, vbString
' Om det första tecknet är / så är det ett kommando, inte ett meddelande
If Left(data, 1) = "/" Then
' Plockar ut kommandot
Dim intSpacePlace As Integer
intSpacePlace = InStr(1, data, " ", vbTextCompare)
Select Case Mid(data, 1, intSpacePlace)
' Klienten vill ange/byta användarnamn
Case "USER"
' Spara användarnamnet i socketens .Tag så är den lättåtkomlig
Socket(Index).Tag = Mid(data, intSpacePlace + 1)
lstUserList.AddItem Socket(Index).Tag
UpdateClientUserList
' Klienten vill avsluta
Case "QUIT"
' Bryt anslutningen
Socket(Index).Close
' Ignorera alla andra kommandon
Case Else
End Select
' Det var inte ett kommando, med andra ord var det text
Else
' Skicka texten till alla anslutna klienter
Shout data, Socket(Index).Tag
End If
' Lägg till datan och 'avsändaren' i loggen
AddText Socket(Index).Tag & ": " & data
End Sub

Så här skickar jag kommandot från klienten:

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
Socket.SendData "/USER " & UserName

Hoppas ni kan hjälpa mig med detta.