Visual Basic - una mano porfavor!

Hola a todos, soy yo otra vez, no puedo lograr hacer un contador y que me muestre el resultador en un textbox, ademas necesito que los datos que ingrese sean almacenados en un archivo de texto plano, me enviaron este codigo, pero la verdad es que no me sirvio, porke me arroja el erron de "Se esperaba un final de instruccion".

Gracias!

Private Sub Form_Load()
crlf = Chr(10) & Chr(10)
cajatexto.Text = ""
Open "\My Documents.txt" For Append As #1
While Not EOF(1)
Line Input #1, file_data&
cajatexto.Text = cajatexto.Text & file_data&
Wend
Close #1

No tengo VB aqui en el trabajo pero eso que pides es algo sencillo, te debe funcionar asi :

' revisar que el archivo existe
if dir("archivo.txt") > "" then
' abrir el archivo
open "archivo.txt" for input as #1
' leer la unica linea que debe haber
line input #1, variable
' cerrar el archivo
close #1
else
' si no hay archivo, poner las visitas a 0
variable = "0"
end if

' mostrar las visitas
text1 = variable

' para guardar es practicamente lo mismo
open "archivo.txt" for output as #1
write #1,text1
close #1