[Resolvido]Abrir documento word

Não consigo abrir dos documentos , alguém pode me ajudar, se eu extrair os arquivos em C:\Program Files.... o hiperLink não abre as pastas, eu tenho que extrair-los em c:\ ,eu não quero que o instalador do winrar coloque ele em c:\
ja tentei vario códigos é não da certo

ele não encontra arquivo so abre o word

JPaulo pequei seu exemplo aqui
)Private Sub SeuBotão_Click()
Dim strCaminho$
On Error GoTo 1

  strCaminho = "C:\Pasta\SeuFicheiro.docx"
 
  Application.FollowHyperlink strCaminho, , True
1:
   If Err.Number = 490 Then
       MsgBox "Ficheiro não encontrado...", vbCritical
       Exit Sub
       Else
       Exit Sub
   End If
End Sub
e deu certo ele abriu a pasta , mas ele fica com essa mensagem

JPaulo
Private Sub SeuBotao_Click()
Dim strCaminho$
strCaminho = "C:\Program Files\Sistlg\cartas\carta_de_calaboração.doc"
   Application.FollowHyperlink strCaminho, , True  <_____ esee não funciona , ele volta para o depurador

End Sub se eu colocar a

e estou com grande problema se eu colocar ele dentro do disco C:\Program Files, olha so em que mostra

porque eu não posso colocar o programa todo dentro da pasta do programas
só posso colocar ele no disco C:\?

JPaulo desculpa mesmo , é porque eu troquei de pasta e esqueci de criar novo topico ,desculpa mesmo.
Os 2 camando que me passou estão funcionando porem ele continua com a mesma mensagem , É POR CAUSA QUE EU ESTOU DENTRO DO C:\Program Files\ POXA ENTÃO TEREI QUE COLOCAR ELE EM C:\Sistlg.
Eu não entendi o motivo que o access aparece com essas mensagem e quandoé colocado dentro da pasta C:\Program Files\
,mais obrigado pela compreensão, ajuda e a paciencia .
Private Sub SeuBotao_Click()
Dim strCaminho$
strCaminho = "C:\Program Files\Sistlg\cartas\carta_de_calaboração.doc"
  Application.FollowHyperlink strCaminho, , True , True)com esse comando em amarelo

)Private Sub SeuBotão_Click()
Dim strCaminho$
On Error GoTo 1

 strCaminho = "C:\Pasta\SeuFicheiro.docx"
 
 Application.FollowHyperlink strCaminho, , True
1:
  If Err.Number = 490 Then
      MsgBox "Ficheiro não encontrado...", vbCritical
      Exit Sub
      Else
      Exit Sub
  End If
End Sub

Private Sub abrirDocumento_Click()
Dim strCaminho$
strCaminho = "C:\Program Files\Sistlg\cartas\carta_de_calaboração.doc"
  Application.FollowHyperlink strCaminho, , True essa linha não da erro
End Sub

esse código
Private Sub abrirDocumento() x = Shell("C:\Program Files\Microsoft Office\Office12\winword.exe " & "C:\SistIg\oficio\" & "SeuDocumento.docx", 1) , não funciona, so abre direto no disco(C)