I'm not sure why rowcount is in your example code, but this works for me
namefile = App.Path & "\names.dat"
Open namefile For Input As #1
MSFlexGrid1.Rows = 1
MSFlexGrid1.Col = 1
While Not EOF(1)
Input #1, x
With MSFlexGrid1
.Rows = .Rows + 1
.Row = .Rows - 1
.Text = x
End With
Wend
End Sub
I've also pulled the .Col =1
out of your loop - you don't need to keep setting it and your loop will be faster than without it (not by much but repeatedly setting it is pointless)
CResults
2010-04-05 15:31:32