Si cierto funciona pero mirad este es mi codigo ( Mi IF )
Cita: If Check1.Value Then
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(ekodata, True)
a.writeline eusuario & "," & eclave
Else
Set Fso = CreateObject("Scripting.FileSystemObject")
If (Fso.FileExists(ekodata)) Then
Kill ekodata
End If
' ***** FIN DE LA COMPROBACION
End If
Siempre entra al primero este o no seleccionado y el objeto CheckBox se llama Check1 es correcto :S
Gracias