Visual Basic - Ficheros BINARIOS

Necesito recuperar caracter a caracter la información de un fichero.

Al parecer debo hacerlo en modo BINARIO, de tal modo que pueda leer tabulaciones, intros, retornos de carro, retornos de linea, etc.

Esto es lo que hago, pero no me funciona.

Dim X As String
Dim LongitudArchivo As Long
Dim MiLinea
Dim MiUbicacion

Open App.Path & "\GPS.TXT" For Binary As #1

Do While Not EOF(1)
X = Input(1, #1)
List1.AddItem "Valor: " & X
Loop

Close #1

Alguien puede decirme por que no me funciona.

Gracias a todos.

ESTE EJEMPLO TE AYUDARA
POR EJEMPLO SI QUIIERAS INTRODUCIR DATOS CON UN ARRAY
Private Sub Command1_Click()
Dim Numeros(1 To 10) As Integer
Dim i%
Dim nFic%

Randomize

'Asignamos los valores
For i = 1 To 10
Numeros(i) = Int(Rnd * 100) + 1
Next
'Abrimos el fichero
nFic = FreeFile
Open "C:\Prueba.txt" For Output As nFic
For i = 1 To 10
Print #nFic, Numeros(i)
Next
Close nFic
Label1 = "Números guardados en el disco"
End Sub

LUEGO PARA LEERLOS
Private Sub Command2_Click()
Dim MasNumeros(1 To 10) As Integer
Dim i%
Dim nFic%

'Abrimos el fichero para leer los datos
nFic = FreeFile
Open "C:\Prueba.txt" For Input As nFic
For i = 1 To 10
Input #nFic, MasNumeros(i)
Next
Close nFic

'Asignamos estos números al label:
Label1 = ""
For i = 1 To 10
Label1 = Label1 & MasNumeros(i) & vbCrLf
Next

End Sub