<code>Private Sub Command1_Click()
  Dim DocFilename As String
 
  On Local Error Resume Next
  DocFilename = "readme.doc"
  With Text1
    .LinkMode = 0
    .LinkTopic = "WinWord|System"
    .LinkMode = 2
    .LinkExecute "[FileOpen(""" + DocFilename + """)][FilePrint 0][FileExit 2]"
  End With
End Sub</code>