Dim Table As String
Table = File.ReadString(File.DirInternal,"ScoreTable.txt")
Dim Scores() As String
c = Table.IndexOf(Level)
Msgbox(table,c)
For i = 0 To 24
d=Table.IndexOf(",")
Msgbox(d,",")
Scores(i) = Table.SubString2(c,d)
Msgbox(scores(i),"Word")
' c = Table.IndexOf2(",",c+1)
Table = Table.SubString(d)
c = c + 2
Msgbox(table,"String")
'Msgbox(Scores(i),c)
Next