also ich habe es jetzt folgendermaßen gelöst...

config DCF77 .........
Dim Uhrzeit as String * 8
...
...
...

Do
Uhrzeit = Time$
...
...
Loop

is zwar nicht optimal...aber es geht

Danke nochmal an alle