[Resolvido] Erro no link que contém espaço na especificação do caminho

Olá senhores, como vão?

Estou com uma dúvida que aparentemente é simples, porém navegando na web não achei nada a respeito.

Criei um código VBA onde caso o resultado seja "1", ao clicar no botão ele vai pra determinado link e caso o resultado seja "2", ele direciona para outro link.
Esse link na verdade é um arquivo em word (.docx) que está em um servidor. Vejamos o código:


         Private Sub Abrir_Desenho()

         If Me.Codigo = "1" Then
 
               x = Shell("C:\Program Files\Microsoft Office\root\Office16\winword.exe " & "\\Servidor\Empresa\Engenharia\Cálculo de Massa\Arruelas\Arruela Torneada\Processos\1 - SEM USINAGEM DO EXTERNO" & "1.docx", 1)

         Else

               x = Shell("C:\Program Files\Microsoft Office\root\Office16\winword.exe " & "\\partecsvrp01\Par-Tec\Engenharia\Cálculo de Massa\Arruelas\Arruela Torneada\Processos\2 - COM USINAGEM DO EXTERNO" & "2.docx", 1)

         End If
         End Sub

O problema desse código é que quando eu clico no botão, ele apenas lê o caminho até "\partecsvrp01\Par-Tec\Engenharia\Cálculo", por conta do espaço do nome da pasta.

Alguém teria alguma sugestão para este erro?

Boa noite, bem-vindo ao fórum e Bom Ano
Teste
x = shell("C:\Program Files\Microsoft Office\root\Office16\winword.exe ""\\Servidor\Empresa\Engenharia\Cálculo de Massa\Arruelas\Arruela Torneada\Processos\1 - SEM USINAGEM DO EXTERNO1.docx"" ", 1)

Bom dia meu amigo Alexandre, obrigado pelas boas vindas e feliz ano novo!

Sua solução funcionou perfeitamente. Agradeço muitíssimo sua ajuda!

Bom dia,
Faltou o "Resolvido"
Precisa premir o botão "Resolvido" que se encontra na zona inferior direita do formulário do fórum

Perdão amigo Alexandre, pronto, alterei! rsrs