Scholieren.com forum - VB

(Sorry dat het (fout) engels is, maar ik doe ff copy van ander (engels) board) :

Ok already made a MSN, but that one is fucked up, so i'm building one again. There is nothing wrong with the protocol or MSN-server, but my VB is doing strange when it gets the LST.

Im splitting the lines, so the HandleData function gets lines and not a gigantic amount of TXT. The code im using for that is:

Code:

Private Sub SckMSN_DataArrival(ByVal bytesTotal As Long)

Dim strData As String

Dim TempLen As Integer

Dim Temp As String

 

SckMSN.GetData strData



Do While Len(strData) > 0

 TempLen = InStr(1, strData, vbCrLf)

 If TempLen > 0 And strData <> vbCrLf Then

  Temp = Mid(strData, 1, TempLen - 1)

  HandleData (Temp)

 Else

  If Len(strData) > 0 And strData <> vbCrLf Then

   HandleData (Temp)

  End If

 Exit Do

 End If

 strData = Mid(strData, (TempLen + 2))

Loop

End Sub

When im debugging it works perfect, but when i run the program "normally" i get this:

NEWLIN > LST 6 RL 958 19 45 ***_***@hotmail.com «-(¯`A/v\Y´¯)-«
NEWLIN > LST 6 RL 958 20 45 **********1985_@hotmail.com -(THE NAME)-
NEWLIN > LST 6 RL 958 20 45 **********1985_@hotmail.com --(THE NAME)-
NEWLIN > hotmail.com =--paul(H)--=
NEWLIN > LST 6 RL 958 22 45 ***************@hotmail.com f*ck%20the%20world

So i get "LST 6 RL 20" 2 times, and "LST 6 RL 21" Only the last part of it. WTF is wrong? and how to solve this? (i cant solve it because in debug-mode it works fine :( )