Visual Basic - grabar variables en archivo txt

Hola, un saludo al grupo.
Soy un poco novato (estoy en ello :-) y me gustaria saber como hacer para grabar un archivo desde mi aplicacion. Me explico:
Ya tengo un botoncito alque le das y me abre una ventana de dialogo de 'grabar' , con filtros para *.txt, etc... pero ¿como grabo?
Tengo una vaiable tipo single de 2 filas por 60 columnas (o al reves, no recuerdo ahora) y quiero exportarlo a un archivo txt en dos columnas separadas (para que sea facil cogerlo luego desde excel), o inlcuso, directamente a archivo de excel, si puede ser. Como lo hago?

Muchas gracias
Un saludo

Israel

Este es el código que necesitas para grabar ficheros:

Private Sub Command1_Click()
Dim i As Integer
Dim x(1, 59) As Single ' Tu matriz

x(0, 0) = 1: x(1, 59) = 2 ' Introduzco un par de valores para que veas el resultado
' Se abre un fichero en modo escritura
Open "fichero.txt" For Output As 1
' Bucle que recorre la matriz
For i = 0 To 59
' Graba en cada linea la primera y segunda columna
Print #1, x(0, i); Chr(9); x(1, i)
Next i
Close #1 ' Cierra el fichero
End Sub

Si quieres puedes sustituir el nombre del fichero en la instrucción Open por el fichero devuelto por el cuadro de diálogo.

Cuando habras el fichero con el excel, debes indicarle que el caracter de separación empleado es el tabulador (por defecto).

Creo que esto lo que quieres. Vuelve a escribir si tienes alguna duda.

Gracias. Genial. Funciona a la perfeccion.....

Hola de nuevo.
Una peqeña ultima duda. Utilizo el common dialog 6, como puedo hacer para que me pregunte si quiero sobreescribir al grabarlo en un archivo que ya existe?

Muchas gracias....
Israel

Esto es lo que necesitas (Nota: Esto código no lo he probado pero creo que te funcionará)

Private Sub Command1_Click()
On Error GoTo error

' Intenta abrir el fichero, exista o no
Open "fichero.txt" For Input As 1
Close #1 ' Si ha podido abrirlo lo cierra ...
If MsgBox("El fichero ya existe." & vbCr & "¿Quieres sobreescribirlo?", vbYesNo) = vbYes Then GoTo error
On Error GoTo 0
Exit Sub

error:
' A este punto se puede llegar:
' A) Si el usuario contesta que desea sobreescribir el fichero.
' If MsgBox ... = vbYes Then GoTo error
' B) Si el intento de abrir el fichero en modo lectura (Input) fracasa.
On Error GoTo 0

/*
AQUI VA EL CÓDIGO QUE TE ESCRIBÍ ANTES
*/
End Sub

De paso, si alguien conoce una forma mejor de realizar esto, que lo diga.

Suerte, israel.