Private Sub Text2_Change()
iims = 0
ims = Text2.Text
For iims = 1 To ims
S2(6) = S2(6) + 1
If S2(6) = 10 Then
S2(6) = 0
S2(7) = S2(7) + 1
End If
If S2(7) = 10 Then
S2(7) = 0
S2(5) = S2(5) + 1
End If
Next iims
Text2.Text = "0"
End Sub

Private Sub Text2_Change()