Visual Basic - Una ayudaita

Como puedo crear un archivo con datos, osea tengo un texto y kiero guardarlo. Eso es todo, gracias de ante mano.

Para Guardar:
Sub Guardar()
Open "C:\MiArchivo.txt" For Output As #1
Print #1, "Ok esta es mi primera linea"
Print #1, "Ok esta es mi segunda linea"
Print #1, "Ok esta es mi tercera linea"
Close #1
End Sub
Para Leerlo:
Sub Leer()
Dim a As String
Open "C:\MiArchivo.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, a
Text1=Text1& a
Loop
Close #1
End Sub