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 "Vender Name: "

word6.Bold 1

name = "Client Name"

word6.Insert name

word6.Bold 0

word6.InsertPara

word6.Insert "Vender Address: "

word6.InsertPara

word6.Insert "Vender Product: "

word6.InsertPara

word6.InsertPara

word6.Insert "Dear Vender:"

word6.InsertPara

word6.InsertPara

word6.Insert "     The letter you are reading was created with Cypress Enable."

word6.Insert " Using OLE Automation Cypress Enable can call any other OLE enabled "

word6.Insert "application. Enable is a Basic Scripting Language for applications"

word6.InsertPara

word6.InsertPara

word6.Insert "      Product Name: Cypress Enable"

word6.InsertPara

word6.Insert "      Company Name: Cypress Software Inc."

word6.InsertPara

word6.InsertPara

MsgBox "You have just called Word 6.0 using OLE"

End Sub