Como abrir um arquivo word ou pdf que já se encontra linkado no formulário?

Minha dúvida é a seguinte, fiz um botão em que consigo linkar o documento que quero ao cadastro em tela, no entanto nao estou conseguindo criar outro botão só para abrir esse documento que já está linkado. Vou mandar os codigos dos botões.

Botão para escolher o documento:

Private Sub Btnima_Click()
   Dim fd As Office.FileDialog
   
   
   Set fd = Application.FileDialog(msoFileDialogFilePicker)
   
   With fd
       .AllowMultiSelect = False
       
               
       .Filters.Clear
       .Filters.Add "Arquivos", "*.docx, *.pdf"
       
       If .Show = True Then
           Me.Txt_Ima = .SelectedItems(1)
       Else
           MsgBox "Nenhum arquivo selecionado...", vbInformation, "Informação"
       End If
                   
       
   End With
   
   Set fd = Nothing
   
   
End Sub


Botão para abrir o documento que se encontra na barra "Txt_Ima":

Private Sub Comando763_Click()
 
   MkDir Me.Txt_Ima
   
       Shell "word.application" & Me.Txt_Ima, vbMaximizedFocus

   
End Sub



Esse último já tentei diversos códigos e não abre o arquivo que escolhi no botão anterior. Alguém ajuda aí, pfv

Boa tarde. Coloque a versão do seu office

Código:

Dim strCaminho As String
    strCaminho = Application.CurrentProject.Path & "\" & Me.Txt_Ima & ".docx" aqui é a extensão do documento

    If Dir(strCaminho) = "" Then
        MsgBox "Não existe nenhum documento com esse nome", vbExclamation
    Else
        
        Shell "C:\Program Files\Microsoft Office\root\Office16\WINWORD.EXE """ & strCaminho & """", vbNormalFocus
    End If

Agora, se você quer criar a mesma pasta que já tem isso pode dar peoblema e vir substituir todos os documentos, coloque uma condição;

Código:

Dim strFolderPath As String
    strFolderPath = Application.CurrentProject.Path & "\Nome da pasta"

    If Dir(strFolderPath, vbDirectory) = "" Then
        MkDir strFolderPath
    Else
     MsgBox "A pasta 'A' já existe.", vbExclamation
    End If