Ya lo he probado y va perfecto pero tengo que añadir yo las filas y las columnas del txt,si yo añado otra fila al txt esta no se mostrara, como hago para que se muestre sin tener que poner yo todo el rato las columnas o filas.
Cita: Private Sub Command6_Click()
' Seleccionar la Primera Fila
MSFlexGrid1.Row = 0
MSFlexGrid1.Rows = 5
MSFlexGrid1.FixedRows = 0
' Seleccionar la Primera Columna
MSFlexGrid1.Col = 0
MSFlexGrid1.Cols = 5
MSFlexGrid1.FixedCols = 0
' Seleccionar la última Fila
MSFlexGrid1.RowSel = MSFlexGrid1.Rows - 1
' Seleccionar la última Columna
MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1
' Variables necesarias, Linea y Registros
Dim Linea As String, Registros As String
' Abrimos el fichero
Open "practicas.txt" For Input As #1
' Procesamos hasta el final
While Not EOF(1)
' Leemos una linea completa
Line Input #1, Linea
' La añadimos a una variable de memoria con vbCr al final
Registros = Registros & Linea & vbCr
Wend
' Cerramos Fichero
Close #1
' Aplicamos la propiedad
MSFlexGrid1.Clip = Registros
End Sub
PD: Muchas Gracias