Visual Basic - problema con timer

Estoy haciendo una aplicacion de control de tiempo, y quisiera saber que esta mal ya que aparentemente funciona,

Dim acumula As Long
Dim acumulado As Currency

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
MsgBox \"llame al dueño o al encargado para realizar el pago\"
End Sub

Private Sub Form_Load()
costo = 10
End Sub

Private Sub Timer1_Timer()
acumula = acumula + 1
Text4 = Val(Text4) + 1
If Val(Text4) > 59 Then
Text4 = 0
Text3 = Val(Text3) + 1
If Val(Text3) > 59 Then
Text3 = 0
Text2 = Val(Text2) + 1
If Val(Text2) = 12 Then
MsgBox \"hallegado al limite de tiempo, por favor llame al encargado o al dueño para para pagar\"
Timer1.Enabled = False
End If
End If
End If

\'Text5 = (acumula / costo) + 1

Text5 = (Val(Text1) / acumula) / 100 \' se supone que deve dar el valor del
\'importe en moneda
End Sub

Solo pones el codigo pero no explicas cual es tu problema, el codigo parece bien, pero en ninguna parte del codigo vi la propiedad "interval" del timer.
Esa propiedad es importante porque es la que indica cada cuanto tiempo se va a ejecutar el codigo del timer.
Por ejemplo timer1.interval=1000 (cada segundo) esa propiedad generalmente se pone en el evento load del form.
Hasta la vista.