Eenvoudige oefeningetje

[Visserke]

Hoi,

Ik zou graag deze oefening maken.
Een verkeerslicht dat om de x tijd van kleur verandert. Deze tijd moet instelbaar zijn. (5 tot 60sec). Heb dit trachtten te maken maar krijg een fout " Compilie error: argument not optional) ik heb al vanalles geprobeert om dit op te lossen maar zonder resultaat. Hopelijk kan iemand mij hiermee helpen.

Option Explicit
Dim intTeller As Integer
Dim intTellerTijd As Integer
Dim intDummy As Integer
Dim intDummy1 As Integer

Private Sub cmdStart_Click(Index As Integer)

intTellerTijd = Val(txtTellertijd) Hier krijg ik de fout

If (txtTellertijd = "") Or (intTellerTijd < 5) Or (intTellerTijd < 60) Then
intDummy = MsgBox("Tijd moet tussen de 5 a 60 sec liggen!", vbOKOnly, "Foutmelding")
Else
intDummy1 = 1
End If

End Sub

Private Sub cmdStop_Click(Index As Integer)

End

End Sub

Private Sub Timer1_Timer()

If (intDummy1 = 1) Then
intTeller = intTeller + 1

If (inteller > intTellerTijd + intTellerTijd + intTellerTijd) Then
intTeller = 0
End If

If (intTeller >= 1) And (intTeller <= intTellerTijd) Then
shpRood.BackColor = vbRed
Else
shpRood.BackColor = vbBlack
End If

If (intTeller >= intTellerTijd) And (intTeller <= intTellerTijd + intTellerTijd) Then
shpOranje.BackColor = &H80FF&
Else
shpOranje.BackColor = vbBlack
End If

If (intTeller >= intTellerTijd + intTellerTijd) And (intTeller <= intTellerTijd + intTellerTijd + intTellerTijd) Then
shpGroen.BackColor = vbGreen
Else
shpGroen.BackColor = vbBlack
End If

End If

End Sub

Hopelijk kan iemand mij helpen. Alvast bedankt.