ник: Alex
Вот так работает:
Private Sub Кнопка4_Click()
Call FHLinkOpen(ПутьКФайлу)
End Sub
Public Function FHLinkOpen(snamef$) As Boolean
On Error GoTo FHLinkOpen_Err
Application.FollowHyperlink snamef$, , True
FHLinkOpen = True
FHLinkOpen_Exit:
Exit Function
FHLinkOpen_Err:
MsgBox Error$
FHLinkOpen = False
Resume FHLinkOpen_Exit
End Function
p.s. работает не совсем корректно - jpg открывает в эксплорере 
, хотя acdsee для этого предназначена....