Visual Basic - abrir .Doc en VB

hola como puedo abrir un archivo .Doc que tiene password en vb?
o como lo puedo abrir si vb, puse el commond dialog
hize algo asi

dim File$,Data$
common.showopen
file = common.filename
open file for input as #1
While Not EOF(1)
Line Input #1, Data
richtextbox1.seltext = data
Wend
Close #1

pero no me sale alguna ayuda

Si deseas abri un archivo .doc (de word debes primero definir el objeto9 como
Dim ARCHIVOWORD As word.Application

luego en donde lo quieres abrir puedes colocar

Set ARCHIVOWORD = CreateObject("word.Application")
ARCHIVOWORD .document.Open FILENAME:="path del archivo", PASSWORD:= "aqui ira la password"

luego cierras con los comandos close y quit
pero mandame un mail si quieres que te lo explique mejor o te mando un codigo para que lo veas...