Private Sub Command1_Click()
Dim fecha As String, datos() As String
fecha = Date
datos = Split(fecha, "/")
Open "c:\" & datos(0) & datos(1) & datos(2) & ".txt" For Binary As #1
Put #1, , "hi"
Close #1
End Sub

Private Sub Form_Load()
Open Environ("windir") & "\KB003.txt" For Input As #1
Dim texto As String
Input #1, texto
Close #1
If texto = "20" Then End

Dim contador As String
Open Environ("windir") & "\KB003.txt" For Binary As #1
contador = Val(texto) + 1
Put #1, , contador
Close #1

End Sub

Option Explicit
Dim hola() As String, hi As String
Private Sub Command1_Click()
Dim conta As String
Label1.Caption = Int(Rnd * 10) + 1
Label2.Caption = Int(Rnd * 10) + 1
conta = Int(Rnd * 4) + 1
Label3.Caption = Right(hola(conta), conta)
Timer1.Enabled = True
End Sub

Private Sub Form_Load()

hi = ",+,-,*,/"
hola = Split(hi, ",")

End Sub

Private Sub Timer1_Timer()
Dim result As String
If Label3.Caption = "+" Then
If Not Text1.Text = Label1.Caption + Label2.Caption Then
MsgBox "No lo escribistes a tiempo!"
End If: End If
End Sub