Visual Basic - URGENTE AYUDA CON ARCHIVO TEXTO

HOLA TODOOOOS!!!

Necesito algo de codigo para abrir un archivo texto y colocarlo en un MSFlexGrid, que esta separado por comas y colocar cada campo en una columna; asi como uno importa en excel un archivo texto y lo coloca en cada celda como texto

Ayudaaaaaaaaaa!!

URGENTEEEEE!!!

Fijate con esto:

Dim Lineas As Variant, i As Integer

Lineas = Split(FileToString(App.Path & "\MiArchivo.txt"), vbCrLf)

MSFlexGrid1.Clear
MSFlexGrid1.Rows = UBound(Lineas) + 1

Columnas = Split(Lineas(LBound(Lineas)), ",")
MSFlexGrid1.Cols = UBound(Columnas) + 2

For i = LBound(Lineas) To UBound(Lineas)

Columnas = Split(Lineas(i), ",")

For j = LBound(Columnas) To UBound(Columnas)
MSFlexGrid1.Row = i + 1
MSFlexGrid1.Col = j + 1
MSFlexGrid1.Text = Columnas(j)
Next j

Next i

Public Function FileToString(FileName As String) As String
Dim hlngFile As Long, strFile As String
hlngFile = FreeFile
Open FileName For Binary Access Read As hlngFile
FileToString = vbNullString
strFile = String(FileLen(FileName), " ")
Get hlngFile, , strFile
Close hlngFile
FileToString = strFile
End Function