'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