For i=1 To 5
    str = str + "o" + vbCrLf
Next
MsgBox str