eVB - split

Hejsa..

Jeg er begyndt og lege lidt med eVB (Visual basic til PocketPC)
Jeg fulgt denne guide http://www.devbuzz.com/content/zinc_currency_converter_pg1.asp for at se hvordan jeg kan hive noget data ud fra en text fil.

eksemplet har jeg lavet lidt om, så det det ser sådan her ud.
Private Sub Form_Load()
Dim myArray As Variant
Dim splitArray As Variant
Dim myString As String
Dim I As Integer
File1.Open "\My Documents\keys\keys.txt", fsModeInput
myArray = File1.InputFields(250)
'Populate the combo boxes with information gathered from the textfile
For I = 0 To 249
myString = myArray(I)
splitArray = Split(myString, ", ")
Combo1.AddItem splitArray(0)
Combo2.AddItem splitArray(1)
Next
File1.Close 'Close the open file
End Sub

Men når jeg så kører det på min pocketpc kommer den med følgende fejl.

Subscript out of range: '[number: 1]'

keys.txt kan se således ud
fdgdfg dfhd hdf hfdhf, hgdhghrhjfghf fhfh
gdfgdgd ghdh  dfh, gdfgd gdg dfg dgg g

Håber der er en VB haj der lige kan se hvad jeg har gjort forkert :)