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