这个问题确实是“原创”！
我看看，试验一下再说。

st = "-1233"
st = Right(Space(12) & st, 12)

Private Sub Command1_Click()
    Me.Cls
    Dim a
    a = Split("12 -1233 12555 2155 22", " ")
    For i = 0 To UBound(a)
        s = Str(a(i))
        Print Spc(12 - Len(s)); s
    Next i
End Sub

这样也许不是你的原意，但能够满足你的要求。