How to show the text file entries in MSHFlexGrid in vb6

Dim f As Integer
f = FreeFile
Open "c:\temp\myFile.txt" For Input As #f

Dim col As Integer, row As Integer
col = 1
row = 1

Dim text_to_enter As String
Do Until EOF(f)
	Input #f, text_to_enter
	MSFlexGrid1.TextMatrix(row, col) = text_to_enter
	row = row + 1  
        'or however you are deciding which column/row to enter the data into
Loop
Close #f