Add spaces

dim xy, xz, xyz as string

   xy="1234"
   xz="5678"

   xyz = xy & "          " & xz

Log(xyz) ' returns 1234          5678   (with 10 spaces)

dim xy, xz, xyz as string

   xy="1234"
   xz="5678"

   xyz = xy &replicate(" ",(30-xy.lenght))& xz

dim xy, xz, xyz as string

   xy="1234"
   xz="5678"

   xyz = xy & Space(30) & xz


Sub Space(HM As Int) As String   
   
   Dim retStr As String
   retStr = ""
   Do While Len(retStr) < HM
      retStr = retStr & " "
   Loop
   Return retStr
   
End Sub

 xy="1234"
   xz="5678"

   xyz = xy & replicate(" ",(30-xy.Length)) & xz


Sub replicate(charadd As String, totcharadd As Int)
   Private totspaces As String
   For i = 1 To totcharadd
      totspaces = totspaces&charadd
   Next
'   Msgbox(totspaces&totspaces.Length,"tot spaces")
   Return totspaces
End Sub

dim nSpace as int

xy="1234"
xz="5678"

nSpace = 30 - xy.Lenght

xyz = xy & replicate(" ",nSpace) & xz


Sub replicate(charadd As String, totcharadd As Int)
   Private totspaces As String
   For i = 1 To totcharadd
      totspaces = totspaces&charadd
   Next
'   Msgbox(totspaces&totspaces.Length,"tot spaces")
   Return totspaces
End Sub

S="                              "
Xy & s.substring(xy.length) & xz