Sub Sample() Dim i As Integer, msg As String For i = 0 To 5 msg = msg & Space(i) & "ABC" & vbCrLf Next i MsgBox msg End Sub