Ayuda con codigo para crear txt y escribir en el

[sitex696]

pues veran , estoy utilizando la libreria FSO para trabajar con textos, pero me da un error en el siguiente codigo:

Dim x As String
Dim fil As File
Dim Afile As TextStream
On Local Error Resume Next

Set Afile = m_fso.CreateTextFile("hola.txt")
Set fil = m_fso.GetFile("hola.txt")
With Afile
Afile.WriteLine "que pasa"
Afile.WriteLine "adios"
Afile.Close
End With

End Sub

lo e estado mirando pero no encuentro el error, haber si me pueden resolver la duda