I want to open a word document as read only automatically because i know word will ask me that!

How do i do that!

So far:

Set wrd1 = CreateObject("Word.Application")
If txtdoc1.Text = "None" Then
MsgBox "No Word Document To Save"
wrd1.Quit
Else
Set doc1 = wrd1.Documents.Open(txtdoc1.Text)
doc1.SaveAs "C:\testing1"
doc1.Close
wrd1.Quit
End If