Sub Command1_Click()
   Dim word6 As object
   Set word6 = CreateObject("Word.Basic")
   word6.FileNewDefault
   word6.InsertPara
   word6.Insert "Attn:"
   word6.InsertPara
   word6.InsertPara
   word6.InsertPara
   word6.Insert "     Vendor Name: "
   word6.Bold 1
   name = "Some Body"
   word6.Insert name
   word6.Bold 0
   word6.InsertPara
   word6.Insert "      Vendor Address:"
   word6.InsertPara
   word6.Insert "      Vendor Product:"
   word6.InsertPara
   word6.InsertPara
   word6.Insert "Dear Vendor:"
   word6.InsertPara
   word6.InsertPara
   word6.Insert "The letter you are reading was created with BlueZone Basic."
   word6.Insert "Using OLE Automation, BlueZone Basic can call any other OLE"
   word6.Insert " enabled application. BlueZone Basic is a Basic Scripting "
   word6.Insert "language for applications."
   word6.InsertPara
   word6.InsertPara
   word6.Insert "     Product Name:  BlueZone Basic"
   word6.InsertPara
   word6.Insert "     Company Name:  BlueZone Software"
   word6.InsertPara
   word6.InsertPara
 
        MsgBox "You have just called Word 6.0 using OLE"
End Sub