So etwa:

Code:
Dim Zehner As Byte , Einer As Byte , A As Byte

Zehner = "0"
Einer = "0"
A = 46

While A >= 10
   A = A - 10
   Zehner = Zehner + 1
Wend

While A > 0
   A = A - 1
   Einer = Einer + 1
Wend

If Zehner = "0" Then Zehner = " "       ' Führende 0 mit Leerzeichen ersetzen
Print Zehner ; Einer