Ein Ausschnitt aus einem meiner Projekte:

Code:
Lautsenden:
   If Mute = 0 Then
      Sendestring = Str(lautst)
      Sendestring = Format(sendestring , "000")
      Sendestring = "V" + Sendestring
   Else
      Sendestring = "V000"
   End If
   Gosub Senden
Return
Also einfach
Code:
Sendestring = str(a)
Sendestring = Format(sendestring , "00")
probieren.