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