[Resolvido]Msg de erro na listbox

Boa Tarde a todos...

Estou tentando abrir um arquivo .tif através de uma list box e um botão, e utilizando um exemplo enviado pelo JPaulo num outro post, consegui fazer, porém aparece um erro, e não estou conseguindo resolve-lo.

(Exemplo JPaulo)  

Private Sub SeuBotão_Click()
Dim CaminhoDaImagem As String
'Drive e Pasta por defeito + o item da lista se estiver no 1º campo da lista que é o ItemData(0)
CaminhoDaImagem = "C:\" & Me.SuaLista.ItemData(0)
Application.FollowHyperlink CaminhoDaImagem
End Sub


fiz as alterações para meu projeto, quando seleciono o nome da imagem na listbox e clico no botão, aparece a seguinte msg:

"O arquivo pode conter vírus, tenha certeza que esteja acessando um arquivo confiável... blá blá blá ... Deseja Abrir esse
arquivo?  "Sim"  ou "Cancelar"

Quando clico em "Sim", funciona perfeitamente, mas quando escolho "Cancelar" apare um erro:

"Erro em tempo de execução '16388'
O hiperlink não pode ser vinculado ao destino.
   "Fim"  ou  "Depurar"


a única maneira que encontrei de não aparecer nem a primeira msg, e abrir a imagem direto, foi através desse outro exemplo do JPaulo, porém utilizando apenas um Botão


Private Sub SeuBotão_Click()
Dim CaminhoDaImagem As String
CaminhoDaImagem = "C:\SuaImagem.tif"
Dim S As Object
Set S = CreateObject("WScript.Shell")
S.Run "rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen " & CaminhoDaImagem
End Sub
 

Porém não gostaria de fazer um botão pra cada imagem, uma vez que serão umas 20 ^^

Estou meio Noob em VBA, e estou tentado fazer isso para um projeto futuro, se alguem puder dar uma luz, agradeço


Obs: A linha que da erro é :  Application.FollowHyperlink CaminhoDaImagem

Grato

Uma maneira prática de solucionar o problema é criando um txt com o seguinte conteúdo:

Altere de 11.0 para 12.0 se o seu Access for o 2007.

Depois de salvar o arquivo com qualquer nome, altere a extensão de .txt para .reg e execute.
Será exibida a mensagem para confirmar a edição do registro do windows, confirme e pode utilizar seus links sem maiores chateações.

Colar no txt estas duas linhas:

Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Common\Security]"DisableHyperlinkWarning"=dword:00000001

Altere o seu código para esta forma que não necessita de invocar o caminho, apenas o nome do ficheiro, exemplo "teste.tif":

Private Sub SeuBotão_Click()
Dim CaminhoDaImagem As String
    CaminhoDaImagem = "file:///" & Me.SuaLista.ItemData(0)
    FollowHyperlink CaminhoDaImagem
End Sub

Vlw JPaulo, agradeço a atenção e ajuda

Obrigado pelo retorno o forum agradece.