Sub Activity_Create(FirstTime As Boolean)
Log(PadNumberWithSpaces(10203, 10))
End Sub
Sub PadNumberWithSpaces(Number As Int, NumberOfSpaces)
If Number = 0 Then Return "0"
Dim n, res As String
n = NumberFormat2(Number, NumberOfSpaces, 0,0, False)
For i = 0 To n.Length - 1
If n.CharAt(i) = 0 Then
res = res & " "
Else
res = res & n.SubString(i)
Return res
End If
Next
Return res
End Sub