also jetzt kommt keine Fehlermeldung ABER er schreibt immer 00

Dim Sek As String * 2
Dim Sekunden As Single

Sek = Format(sekunden , "00")