Introduction - If you have any usage issues, please Google them yourself
Private Declare Function SHRunDialog Lib "shell32" Alias "#61" (ByVal hOwner As Long, ByVal Unknown1 As Long, ByVal Unknown2 As Long, ByVal szTitle As String, ByVal szPrompt As String, ByVal uFlags As Long) As Long
Private Sub Command1_Click()
SHRunDialog hWnd, 0, 0, vbNullString, vbNullString, 0
End Sub