ник: час
здесь нет решения Дрюни - это другой вариант.
а вот решение от дрюни, которое вешает систему
'Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal _
' hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal _
' lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)