Space Function

Space (n As Long)

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