问打开对话框IE自动化VBA

EN

Set browser = CreateObject("InternetExplorer.Application")

browser.Visible = True

brwser.navigate "http://stackoverflow.com/..." 'your address

Sleep 1000 'wait for 1 second

With browser.Document
   Set txtUsr = .getElementsByName("Username")
   Set txtPass = .getElementsByName("UserPass")
   Set btnLogin = .getElementById("btnLogin")
End With

txtUsr.innerText = "User Name"
txtPass.innerText = "Password"
btnLogin.Click

Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" ( _
 ByVal lpClassName As String, _
 ByVal lpWindowName As String _
) As Long

setMyDialog = FindWindow(vbNullString, dialogCaption)

Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" ( _
     ByVal lpClassName As String, _
     ByVal lpWindowName As String _
) As Long

Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" ( _
     ByVal lpClassName As String, _
     ByVal lpWindowName As String
) As LongPtr

1.I define an obj as internetexplorer.aplication
2.I login and then I want to upload a photo so I click the button for upload
' all works till now 
3.Now I try to interact with the dialog that let's me to choose the photos programmatically and their is my problem