set shGinaMsgBox = CreateObject("shell.commondialog")
shGinaMsgBox.Flags = &H808&
shGinaMsgBox.Filter = "Text|*.txt|All Files|*.*"
shGinaMsgBox.FilterIndex = 0
shGinaMsgBox.ShowOpen()
WScript.StdOut.Write("Filename selected = " & shGinaMsgBox.FileName & vbCrLf)
set shGinaMsgBox = Nothing