I believe it's caused by your string (used to get the Split results) being
declared with a subscript already in place.
Also,
Don't use FileOpen! It is a bad method of doing things, left from VB6.
You should always use the StreamWriter/Reader classes;
Try this:
Dim sw As IO.StreamWriter, sr As IO.StreamReader
Dim myStringArr() As String
sw = New IO.StreamWriter(New IO.FileStream("C:\Result.txt", IO.FileMode.OpenOrCreate))
sr = New IO.StreamReader(New IO.FileStream("C:\file1.txt", IO.FileMode.Open))
Dim tmp As String = sr.ReadLine()
myStringArr = tmp.Split(",")
sw.WriteLine(myStringArr(0))
tmp = sr.ReadLine()
myStringArr = tmp.Split(",")
sw.WriteLine(myStringArr(0))
sr.Close()
sw.Close()