Añadimos 2 Labels
Código
Dim Variable1 As String Dim numero As String Private Sub Form_Load() numero = "40" variabel1 = InputBox("¿Que quedo españa en la final?[España primero]", "Pregunta") If variabel1 = "1-0" Then MsgBox "Correcto" Else Call Repetir MsgBox "Mal" MsgBox "Adios" Form1.Timer1.Enabled = True Label3.Caption = "60" Label2.Visible = False End If End Sub Public Function Repetir() For i = 1 To 40 MsgBox "Lo as inroducido mal " & numero & Form1.Repetir1 Next End Function Public Function Repetir1() numero = numero - 1 End Function Private Sub Label2_Click() End End Sub Private Sub Timer1_Timer() Label3.Caption = Label3.Caption - 1 If Label3.Caption = "0" Then End End If End Sub