he danke für die antwort habe es nun so gelöst

Sub Clock
If V_second <> V_last_second Then
If V_second = 60 Then V_second = 0 : V_last_second = V_second : Incr V_minute
If V_minute = 60 Then V_minute = 0 : Incr V_hour
If V_hour = 24 Then V_hour = 0
'time division
V_1_second = V_second Mod 10
V_10_second = V_second / 10
V_1_minute = V_minute Mod 10
V_10_minute = V_minute / 1
V_1_hour = V_hour Mod 10
V_10_hour = V_hour / 10
V_time = Str(v_10_hour) + Str(v_1_hour) + Str(v_10_minute) + Str(v_1_minute)
End Sub
ich werde das gesamte projekt hier veröffendlichen, wenn ich in 2 bis 4 wochen fertig bin. ohne diese forum hätte ich wohl schon aufgegeben