How to add file string in Input Box from the "Choose a File to Upload" Dialog Box

[Sussy]

'Get source file As a string.
FileLink = Path & File

'Define URL:
URL = Defined

IEpath = """C:\Windows\SysWOW64\shell32.dll"""

'initiating a new instance of Internet Explorer and assigning it to objIE
Set objIE = New InternetExplorer
Set Doc = objIE.Document

'make IE browser visible (False would allow IE to run in the background)
objIE.Visible = True

'navigate to web page
objIE.Navigate URL


'wait while the browser is loading
Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop

'WebPage loaded
Shell (IEpath & URL)

'in the select option attach the csv file
Set Click = objIE.Document.GetActiveBrowserObj

'click the 'fileupload0' to select
objIE.Document.getelementbyid("fileupload0").Click

'HERE IS WHERE I NEED HELP WITH, TO ADD THE FILE STRING WITHOUT USER'S INTERACTION ....
'InputBox asks the user to enter a value in a dialog box

'Get Window ID for IE so we can set it as activate window
HWNDScrn = objIE.hwnd 'Handle to a Window Screen

'Set IE ID as active Window
Application.GetWindowText (HWNDScrn)
'Application.SetForegroundWindow (HWNDScrn)

'If objIE.Document.ShowDialog = Windows.Forms.DialogResult.OK Then
' objIE.form.TextBox1.Text = objIE.form.GetDirectoryName(FileLink.FileName) 'file content goes here
'
'End If

If objIE.xFiDialog.Show = -1 Then

If Application.xFiDialog(xlDialogInsertHyperlink).Show Then

End If
'----------------------------------------------------------------------------

'Upload IE
' PushKeys (FileLink) 'enter link to web app
objIE.Document.FormInputTypeFile.Action = "Load"