Guardar contenido de Texbox Multilinea en archivo de texto

[rapbyone]

Amigos, les cuento, tengo el siguiente código que me permite crear un archivo de texto en una ruta con los valores indicados:

Código [Seleccionar] Expandir

Private Sub Command2_Click()
Dim fnum As Integer

fnum = FreeFile 'se obtiene el numero de archivo
Open "ruta/valor.txt" For Output As fnum 'se abre para escritura

' Escribe las lineas de texto
Print #fnum, "ataque 12"
Print #fnum, "atauqe 13"
Print #fnum, "poder 15"

Close fnum 'se cierra el archivo
End Sub

Pero me gustaría poder crear el archivo de texto, tomando como referencia los datos que se agreguen en un textbox multilinea a través de un commandbutton.

Me podrían ayudar a adaptar el código

Muchas Gracias 

[Danyfirex]

Hola. creo que puedes hacer algo como


Print #fnum, text1.text



Saludos

[rapbyone]

Hola. creo que puedes hacer algo como


Print #fnum, text1.text



Saludos

funciono perfecto
gracias