If Not IsNumeric(Text1.text) Then
MsgBox "No es numerico!"
Else
MsgBox "Bien"
End if

Private Sub Form_Load()
Dim file_data$
Open "C:\Archivo.txt" For Append As #1
While Not EOF(1)
Print #1, file_data$
Text1.text=Text1.text & file_data$ & vbNewLine
End Sub

Dim Ti 'Defino la variable que va a tener el contador

Function Aumentar_Ti()  'Hago una funcion que me disminuye el contador
    Ti = Ti - 1 'Le resto a Ti lo que tiene una vez
    Label1.Caption = "Faltan: " & Ti & " Segundos Para Morir!" 'Muestro el letrerito del tiempo
    If Ti = 0 Then 'Comparo si Ti es igual a Cero
    MsgBox ("Haz muerto!") 'Reemplaza las sentencias a ejecutar Sentencia a Ejecutar
    End If 'Cierro el If
End Function

Private Sub Form_Load()
    Timer1.Interval = 1000 'Timer va a valer un segundo
    Ti = 30 'Ti va a ser igual a Treinta
    Label1.AutoSize = True 'El label1 va a tomar el tamaño que mejor le parezca
    Label1.Caption = "Faltan: 30 Segundos Para Morir!" 'Que muestre el letrero
End Sub

Private Sub Timer1_Timer()
    Call Aumentar_Ti 'Esta va a llamar la funcion "Aumentar Ti" lo cual hara disminuir Ti
End Sub

Private Sub Command1_Click()
Open "C:\Archivo.txt" For Append as #1
Print #1, "Hola Mundo"
Close #1
End Sub

Private Sub Form_Load()
	On error goto error
	GetAttr("C:\Archivo.txt")
	MsgBox("El archivo existe")
error:
	MsgBox("El archivo no existe")
End Sub