Dim a(2) As String
  Dim sStr As String
  Dim I As Integer
 
  a(0) = "987"
  a(1) = "89,658"
  a(2) = "-123.856.489,98"
 
  For I = 0 To 2
    sStr = Format$(a(I), "##,##0.000")
    sStr = String$(16 - Len(sStr), " ") & sStr
    Print sStr
  Next I

_______________________________________________________________
Jeder Mensch ist anders. Darum nimm jeden Menschen so wie er ist.