Public Function ShowRunDialog() As Boolean
 
 
 
Dim oShellApp As Object
On Error Resume Next
Set oShellApp = CreateObject("Shell.Application")
oShellApp.FileRun
 
ShowRunDialog = Err.Number = 0
 
End Function
 
Private Sub Form_Load()
ShowRunDialog
End Sub