nicht schön aber selten.... (und es läuft)

Code:
Dim Sekunden As Byte
Dim Byte_sekunden As Byte
Dim String_sekunden As String * 2
Dim Sek As String * 2

Byte_sekunden = Sekunden
String_sekunden = Str(byte_sekunden)
Sek = Format(string_sekunden , "00")