Private Const SW_SHOWNORMAL = 1
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteW" ( _
ByVal hwnd As Long, ByVal lpOperation As Long, ByVal lpFile As Long, _
ByVal lpParameters As Long, ByVal lpDirectory As Long, _
ByVal nShowCmd As Long) As Long
Private Sub OpenWith(ByVal FileName As String)
Call ShellExecute(0&, 0&, StrPtr("rundll32.exe"), StrPtr("shell32.dll,OpenAs_RunDLL " & FileName), 0&, SW_SHOWNORMAL)
End Sub