<XMP>
Sub PopupHello9()
   Dim i
   Dim MsgHello

   '----- LOOP , Prepare message
   MsgHello = ""
   For i = 1 To 9
      MsgHello = MsgHello & "Hello World........." & vbCrLf
   Next

   MsgBox (MsgHello)
End Sub
</XMP>