Private Sub Command1_Click()
Dim sData As String
Dim sSplit() As String
Dim nRow As Integer
Dim nI As Integer
Open "data.txt" For Input As #1
nRow = 1
Do While Not EOF(1)
Line Input #1, sData
sSplit = Split(sData, ",")
MSFlexGrid1.AddItem Str(nRow)
For nI = 0 To 3
MSFlexGrid1.Row = nRow + 1
MSFlexGrid1.Col = nI + 1
MSFlexGrid1.Text = sSplit(nI)
Next nI
nRow = nRow + 1
Loop
Close #1
End Sub
