Temas

tengo el siguien problema: lo que quiero hacer es que al hacer click sobre un boton se guarde en un archivo .txt los datos de unas cajas de texto, el problema es que siempre me lo guarda sobre la misma linea y lo sobre escribe.... Como puedo hacer para decir que cada ves que aprete el boton valla a una linea distinta????

Les copio el codigo desde ya gracias

Private Sub Command2_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 Output As CDbl(TextAlumnos.Text)
'Escribimos el contenido del TextBox al fichero
Print #canalLibre, TextNombre.Text & "  " & TextLegajo.Text & "  "; TextTotal.Text
Close #canalLibre
TextCanallibre.Text = canalLibre
End Sub

Hola: Bueno antes que todo me presento soy nuevo programando y estoy aprendiendo en vb6, y bueno queria hacer un programita pero tengo algunas dudas:

1- En una parte tengo que sumar asique puse 11 botones diferentes para sumar, que son los numeros del 1 al 10 y una tecla que sirve para sumarle al numero 0.5, entonces si quiero el numero "27.5" apreto 1 ves el 10, 1 el 7 y el 0.5...
hasta ahi todo bien el problema viene cuando pongo por ejemplo 2.5 y le sumo 2 mas, el resultado me da "4" en ves de dar "4.5" y no se como hacer para solucionar eso, bueno esa es mi primera gran duda

Bueno lo dejo ahi, y cuando me respondan esa preguntita les escribo las otras

Desde ya, gracias


Agrego el codigo:

Private Sub Command2_Click()
Text3.Text = Val(Text3.Text) + 1
End Sub

Private Sub Command3_Click()
Text3.Text = Val(Text3.Text) + 2
End Sub

Private Sub Command4_Click()
Text3.Text = Val(Text3.Text) + 3
End Sub

Private Sub Command5_Click()
Text3.Text = Val(Text3.Text) + 4
End Sub

Private Sub Command6_Click()
Text3.Text = Val(Text3.Text) + 5
End Sub

Private Sub Command7_Click()
Text3.Text = Val(Text3.Text) + 6
End Sub

Private Sub Command8_Click()
Text3.Text = Val(Text3.Text) + 7
End Sub

Private Sub Command9_Click()
Text3.Text = Val(Text3.Text) + 8
End Sub

Private Sub Command18_Click()
Text3.Text = Val(Text3.Text) + 9
End Sub

Private Sub Command1_Click()
Text3.Text = Val(Text3.Text) + 10
End Sub

Private Sub Command10_Click()
Text3.Text = Val(Text3.Text) + 0.5
End Sub

Private Sub Command11_Click()
Beep
End
End Sub