Visual Basic - PROBLEMA CON TXT

Hola a todos, espero me puedan ayudar.
¿Cómo hago para cambiar la propiedad de un archivo txt y ponerlo como oculto, y claro, tambien regresarlo a visible?
Gracias, hasta la vista.

Prueba esto:

Dim Arch As Object
Set Arch = CreateObject("Scripting.FileSystemObject")
If Arch.FileExists("NombreArchivo.TXT") Then
Arch.SetAttr("NombreArchivo.TXT", vbHidden + vbReadOnly)
Else
MsgBox "El archivo no existe"
End If

En donde pone "NombreArchivo.TXT" debes poner el nombre completo del archivo, o una variable String que contenga dicho nombre.
En el Object Browser busca VbFileAttribute para ver todas las constantes que definen los posibles atributos de archivos.

Suerte
Josetxu