<XMP>
Sub HelloWorld9()
   Dim i

   '----- LOOP
   For i = 1 To 9
      Selection.TypeText ("Hello World........." & vbCrLf)
   Next
End Sub
</XMP>