Hab das ganze mal so versucht, um zu prüfen ob das ganze auch
funktioniert und hab es mal in die schleife geschmissen.
Code:
Do
  Call Printtext(1 , 1 , Time$)
  Debounce Pina.0 , 0 , Keypressed2 , Sub                   'Taster entprellen
  Debounce Pina.1 , 0 , Keypressed1 , Sub                   'Taster entprellen
Loop
Das hat dann auch funktioniert, jedoch wird das dann zig Tausendemal
ausgeführt.

Hab jetzt das von @RalfP genommen und das funktioniert dann auch prima.
Jede sekunde wird dann die Zeit ausgegeben.
Code:
Do
  Debounce Pinc.7 , 0 , Keypressed2 , Sub                   'Taster entprellen, reagiert wenn Taste losgelassen wird
  Debounce Pinc.6 , 0 , Keypressed1 , Sub                   'Taster entprellen, reagiert wenn Taste losgelassen wird
  If 1 = Timeout_min Then
    Aa = Time$
    Aa = Left(aa , 5)
    If &H00 = Menuel Then
      Aa = " " + Aa
      Call Printtext(1 , 6 , Aa)
    End If
    If &H00 = Menuer Then
      Aa = " " + Aa
      Call Printtext(8 , 6 , Aa)
    End If
    Timeout_min = 0
  End If
Loop

Sectic:
  Aa = Time$
  Aa = Right(aa , 2)
  A = Val(aa)
  If 0 = A Then
  Timeout_min = 1
Danke an euch für die SUPER hilfe!