Sub OLEexample()

Dim word As Object

Dim myData As String

myData = 4 * Atn(1)          ' Demonstrates Automatic type conversion

Set word = CreateObject("Word.Basic")

Word.AppShow

word.FileNewDefault

word.Insert "The following was computed in Cypress Enable: "

word.Bold 1          ' Show value in boldface

word.Insert myData

word.Bold 0

MsgBox "Done"

End Sub