Variante, nur so, als Alternative : ( beispiel für maximal 6 Stellen )
Code:
Dim Zahl As Long
Dim Postext As String * 3

Dim Strg As String * 20
Dim Arr(21) As Byte At Strg Overlay
Dim Ix As Integer
Dim Iy As Byte
Dim Ln As Byte

    Zahl = 348365             ' das ist die Zahle

    Strg = Str(zahl)
    Ln = Len(strg)

    Iy = 6 - Ln

    For Ix = 1 To Ln
      Postext = Lookupstr(iy , Posit)
      Print Postext ; Chr(arr(ix))
      Incr Iy
    Next
End

Posit:
   Data "hT:" , "zT:" , "T:" , "H:" , "Z:" , "E:"