'This Prints to the Debug-Window!
Dim i As Integer
Dim ii As Integer
Dim x As Integer
Dim out As String
output = ""
For i = 1 To 5
For ii = 1 To i
out = out + "*"
Next ii
Debug.Print (out)
out = ""
Next i