Call test

Sub test()

    With CreateObject("InternetExplorer.Application")

        .Visible = True
        .Navigate "http://******************************"

        Do While .Busy Or .readyState <> 4
            WScript.Sleep 50
        Loop

        Set oInputs = .Document.getElementsByTagName("input")
	

	For Each elm In oInputs
            If elm.id = "loadFile" Then
		elm.click
'после выполнения этой строки открывается стандартное виндовское окно и на этом программа стопориться
'пробовал отправлять SendKeys'ом но он ждет, прежде чем закроется окно с выбором файла и только после этого выполняет
		Exit For
            End If
        Next

    
        Do While .Busy Or .readyState <> 4
            WScript.Sleep 50
        Loop

        End With


End Sub

Файл:&nbsp;&nbsp;<input name="loadFile" type="file" id="loadFile" class="InputBox1" style="width: 540px;" />&nbsp;&nbsp;