Visual Basic - como guardar el contenido de un textbox

hola tengo un pqueño problema que me esta haciendo muchas bolas, se trata de lo siguiente tengo un texbox cuya propiedad multiline es true, necesito guardar el contenido del mismo en un archivo txt, y por otro lado necesito imprimir dicho contenido, espero puedan ayudarme

gracias

Esta es una manera de guardar los datos de un textbox. Abajo de cada linea explica lo que significa.

Crea un proyecto nuevo con un textbox y dos botones, un boton llamalo Guardar y el otro Abrir.

Declara dos variables que son necesarias para guardar y abrir.

Option explicit
Private MyVar As Variant
'Aqui vas a guardar los datos
Private Pbag As PropertyBag
'Aqui vas a pasar los datos temporalmente mientra
' se guardan en un documento.

Ahora usa este codigo en el boton Guardar:

Private Sub Guardar()

Set Pbag = New PropertyBag
'Crea una nueva bolsa de propiedades
Pbag.WriteProperty "TEXTO" , Text1.Text
'Aqui guardas temporalmente los datos del textbox,
'lo que esta entre comillas es el nombre que
'identifica a los datos. Puedes poner lo que sea.
MyVar = Pbag.Contents
'Aqui conviertes lo que guardaste temporalmente
'a VARIANT
Open "c:\texto.txt" For Binary As #1
'Creas an archivo, el nombre y la extencion pueden
'ser las que se te ocurran.
Put #1, , MyVar
'Mandas los datos en foma de Variant al archivo
'que acabas de crear
Close #1
'Cierras el archivo ya con los datos guardados.
End sub

Ahora usa este codigo en el boton Abrir:

Sub Abrir()

Dim StrTexto As String
'Usas esto para recibir los datos que abras
Dim Bt As Byte
'Esta variable la necesitas para convertir de
'variant a byte y asi puedas leer el texto
Open "c:\texto.txt" For Binary As #1
'abres el archivo que creaste
Get #1, , MyVar
'Obtienes los datos que guarda

ok esta bien pero en verdad no era esa la idea, lo que pretendo hacer es guardar el contenido del textbox mediante una caja de dialogo guardar (commondialog1.ShowSave ) y mi problema es como paso el contenido de ese text al archivo que desee crear. ..espero me entiendas y puedas ayudarme de todas maneras gracias por la solucion anterior, es interesante aunque ya te dije no era lo que buscaba

saludos

Esta es una manera de guardar los datos de un textbox. Abajo de cada linea explica lo que significa.

Crea un proyecto nuevo con un textbox y dos botones, un boton llamalo Guardar y el otro Abrir.

Declara dos variables que son necesarias para guardar y abrir.

Option explicit
Private MyVar As Variant
'Aqui vas a guardar los datos
Private Pbag As PropertyBag
'Aqui vas a pasar los datos temporalmente mientra
' se guardan en un documento.

Ahora usa este codigo en el boton Guardar:

Private Sub Guardar()

Set Pbag = New PropertyBag
'Crea una nueva bolsa de propiedades
Pbag.WriteProperty "TEXTO" , Text1.Text
'Aqui guardas temporalmente los datos del textbox,
'lo que esta entre comillas es el nombre que
'identifica a los datos. Puedes poner lo que sea.
MyVar = Pbag.Contents
'Aqui conviertes lo que guardaste temporalmente
'a VARIANT
Open "c:\texto.txt" For Binary As #1
'Creas an archivo, el nombre y la extencion pueden
'ser las que se te ocurran.
Put #1, , MyVar
'Mandas los datos en foma de Variant al archivo
'que acabas de crear
Close #1
'Cierras el archivo ya con los datos guardados.
End sub

Ahora usa este codigo en el boton Abrir:

Sub Abrir()

Dim StrTexto As String
'Usas esto para recibir los datos que abras
Dim Bt As Byte
'Esta variable la necesitas para convertir de
'variant a byte y asi puedas leer el texto
Open "c:\texto.txt" For Binary As #1
'abres el archivo que creaste
Get #1, , MyVar
'Obtienes los datos que guarda