Dim wAplicativo as String
Dim wArquivo as String
wAplicativo= "C:\Arquivos de Programas\Microsoft Office\Office\Winword.exe"
wArquivo="c:\temp\carta.doc"
Call Shell(wAplicativo & " " & Chr(34) & wArquivo & Chr(34), 1)

Application.FollowHyperlink "c:\temp\carta.doc"