Consulta! Please!

Hola!,. Disculpen que los moleste.. Es que estoy haciendo un trabajo para la facultad .., con FSO, les envío el código.. El error que me da es que el procedimiento o argumento no es válido.. En la linea Set ts = File.OpenAsTextStream(ForAppending)
Espero que puedan ayudarme!.. Les comento que no he instanciado la dll de scripting runtimes sino que esperaba con el creatobject que todo sea en tiempo de ejecución!.. Gracias adiós!
Private Sub cmdAlta_Click()
'Dim File As File
Dim File, fso, ts
'Dim fso As New FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("A:\Mitch!Clients\Clientes.txt") Then
Set File = fso.GetFile("A:\Mitch!Clients\Clientes.txt")
Set ts = File.OpenAsTextStream(ForAppending)
ts.writeline txtApellido & "," & txtNombre & "," & txtDomicilio & "," & txtTelefono
ts.Close
Set fso = Nothing
Set ts = Nothing
txtApellido.Text = ""
txtNombre.Text = ""
txtDomicilio.Text = ""
txtTelefono.Text = ""
txtApellido.SetFocus
Else
Set File = fso.CreateTextFile("A:\Mitch!Clients\Clientes.txt")
End If
End Sub