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!!!

aqui una funcion q hice...

Private Sub CargarArchivo(ByVal archivo As String, Grid As MSFlexGrid)
On Error Resume Next
Dim linea As String
f = FreeFile
Open archivo For Input As #f
If Err.Number <> 0 Then
MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical, "Error al cargar archivo"
Exit Sub
End If
Grid.Row = 0
While Not EOF(f)
If Grid.Rows <= Grid.Row + 1 Then Grid.Rows = Grid.Rows + 1
Grid.Row = Grid.Row + 1
Line Input #f, linea
c% = 1: pos% = 1
For i = 1 To Len(linea)
ch = Mid(linea, i, 1)
If ch = "," Or i = Len(linea) Then
If Grid.Cols <= c Then Grid.Cols = c + 1
Grid.Col = c
c = c + 1
Grid.Text = Mid(linea, pos, i - pos + IIf(i = Len(linea) And ch <> ",", 1, 0))
pos = i + 1
End If
DoEvents
Next i
Wend
Close #f
MsgBox "Se ha cargado el archivo. ", vbInformation, "Cargar archivo"
End Sub

_________

... para llamarla haz lo siguiente:

Call CargarArchivo(dir y nombre del archivo delimitado por comas, nombre del grid al que se cargaran los datos)

ejm:

Call CargarArchivo("C:\ejemplo.txt", MSFlexGrid1)