Abriendo el archivo en modo Append siempre va a escribir al final del archivo

.
Private Sub cmdSave_Click()
Dim hFile%
hFile = FreeFile
Open "C:\MyFile.txt" For Append As #hFile
Print #hFile, "Mis datos"
Close #hFile
End Sub
Saludos.
Gracias... pero ahora tengo otro problema :S... mira el codigo fuente del boton "guardar" me quedo asi:
Private Sub Comguardar_Click()
Dim canalLibre As Integer
'Obtenemos un canal libre que nos dará
'el sistema oparativo para poder operar
canalLibre = FreeFile
'Abrimos el fichero en el canal dado
Open "C:\fichero.txt" For Append As CDbl(TextAlumnos.Text)
'Escribimos el contenido del TextBox al fichero
Print #canalLibre, TextNombre.Text & " " & TextLegajo.Text & " "; TextTotal.Text
Close #canalLibre
End Sub
Pero cuando apreto un boton que sirve para pasar al prximo alumno y despues quiero apretar el boton "guardar" me dice: error 52, bud file name or number. y aparece en amarillo el renglon que dice: Print #canalLibre, TextNombre.Text & " " & TextLegajo.Text & "
aca les paso el codigo del boton "pasar al proximo alumno"
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
Option5.Value = False
Option6.Value = False
Option7.Value = False
Option8.Value = False
Option9.Value = False
TextTotal.Text = 0
Text1.Text = 0
Text2.Text = 0
Text3.Text = 0
Text4.Text = 0
Text5.Text = 0
Text6.Text = 0
Text7.Text = 0
Text8.Text = 0
Text9.Text = 0
TextNombre.Text = " "
TextLegajo.Text = " "
NGrupo.Text = 1
TextAlumnos.Text = CDbl(TextAlumnos.Text) + 1
Bueno, si alguien puede decirme porque es eso les agradeceria