Sub ExampleSpace
Dim sText As String,sOut As String
DIm iLen As Integer
iLen = 10
sText = "Las Vegas"
sOut = sText & Space(iLen) & sText & Chr(13) &_
sText & Space(iLen*2) & sText & Chr(13) &_
sText & Space(iLen*4) & sText & Chr(13)
msgBox sOut,0,"Info:"
End Sub