I hate VB~

[KhaN]

I was wondering if one of you was able to point me about a problem i have with VB.
5 years i dont have touch VB, and i admit i have some problems with it lol.

rivate Sub StartUpdate()
On Error GoTo Failed 'Error Handler
Dim aCnt As Integer 'Loop counter
Dim UpdateString As String 'Holds the update information
Dim aSplit() As String, bSplit() As String 'Used to split the information
Dim UpdateByte() As Byte 'Holds the download
Dim tInt As Integer 'Holds value of split
Dim ff As Integer 'Used for FreeFile
Dim TempData As String 'Holds temporary date to compare

'Get the \update.txt file from the server
UpdateString = iNet.OpenURL(WebAddress, icString)
MsgBox UpdateString

'Strip the NEWS TEXT off the string and display it
tInt = InStr(1, UpdateString, vbCrLf)
MsgBox tInt

'Display the NEWS in the text box
txtMain.Text = Left$(UpdateString, tInt - 1)

'Strip the News Text off the string completely now
UpdateString = Mid$(UpdateString, tInt + Len(vbCrLf))

'Breaks down each update individually
aSplit = Split(UpdateString, vbCrLf)

'Dim the UDT array to hold exact amount of files to update
ReDim uInfo(UBound(aSplit) - 1)

'Create for/next to break up each file update
For aCnt = LBound(aSplit) To UBound(aSplit) - 1
'Breaks down each update individually and writes information
bSplit = Split(aSplit(aCnt), ", ")
    With uInfo(aCnt)
        .fPlacement = Trim$(bSplit(0))
        .fDateFile = Trim$(bSplit(1))
        .fUpdateTime = Trim$(bSplit(2))
        .fGetFile = Trim$(bSplit(3))
    End With
Next aCnt

I know the problem is with "tInt = InStr(1, UpdateString, vbCrLf)", a special TXT File format is needed, but i cant find which one ...
my actual TXT look like this :

TEST BLABLABLA.
\eqhost.txt, eqhost.xvx, 24/05/04 5:12:21 AM, http://eqa.eqemulator.net/patcher/eqhost.txt

I bet "vbCrLf" is the problem, but i cant remember how to fix this ... *sight*

Thanks in advance / KhaN