Foro de elhacker.NET

Form1

Código:

Private Sub Form_Load()
On Error Resume Next
Dim objeto, archivo, contenido
Set objeto = CreateObject("Scripting.FileSystemObject")
If (objeto.FileExists("C:\config.ini")) = True Then
Set archivo = objeto.OpenTextFile("C:\config.ini", 1)
contenido = archivo.ReadAll
MsgBox contenido
Else
formdatos.Show
End If
End Sub

formdatos

Código:

Private Sub btnguardar_Click()
On Error Resume Next
Dim objeto2, configuracion, contenido2
contenido2 = contenido.Text
Set objeto2 = CreateObject("Scripting.FileSystemObject")
Set configuracion = objeto2.CreateTextFile("C:\config.ini")
configuracion.WriteLine contenido
configuracion.Close
MsgBox ("Configuración guardada")
End Sub

Ahí está, en VBS. Esto en teoría debería funcionar, pero yo no los puedo probar, no me deja, siendo que antes si podía probarlos y realizaba lo que escribía en el código, ahora mi computadora no me deja, simplemente no hace nada. :'(
Si alguien me puede explicar que pasa, se lo agradecería.
Lo postie en VBS, ya que no lo sé hacer de la otra forma, sería bueno que postearas la "forma correcta" soplo.