Problemer med splittelse af streng

Fik engang hjælp af razorsedge til et problem, hvorpå han gav mig løsningen: (http://www.eksperten.dk/spm/134472)

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim buffer As String
Dim Prefix As String
Dim Pos As Integer
Dim PostFix As String

Winsock1.GetData buffer

\'Finder forreste ord i dit tilfælde .version
Pos = InStr(1, buffer, \" \")
Prefix = Mid(buffer, 1, Pos - 1)
\'#############

\'finder hvad der kommer efter Prefixet
Pos = InStr(Pos, buffer, \" \")
PostFix = Mid(buffer, Pos + 1)
\'#############

Select Case Prefix

    Case \".version\"
      MsgBox prompt:=\"Klient bruger v.: \" + PostFix
     
    \'Case \".msg\"
      \'Text1.text = text1.text + Postfix + vbcrlf
      \'Text1.SelStart = Len(Text1.Text)

    \'Tilføj evt selv flere
     
End Select
End Sub

---

Det virkede også dengang!.. men nu kan jeg ikk få det til at virke.. VB6 giver fejl i:

PostFix = Mid(buffer, Pos + 1)

(Invalid procedure call or argument)

..tak på forhånd!