<XMP>
Sub WriteMsg()
   Dim MyMsg

   MyMsg = "- Nice weather, isn't it ?" & vbCrLf _
          & "- Yes ""nice"" weather." & vbCrLf

   Selection.TypeText (MyMsg)
End Sub
</XMP>