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