Ho provato anche ad usare questo codice ma mi da un errore relativo allo stack

codice:
Dim theHandle As IntPtr
        Dim percorso As String
        percorso = Form1.TextBox1.Text
        theHandle = FindWindowByCaption(0, "Scegliere file", "#32770")
        If theHandle = IntPtr.Zero Then
            theHandle = FindWindowByCaption(0, "Selezionare il file da caricare", "#32770")
        End If
        If theHandle <> IntPtr.Zero Then
            SetForegroundWindow(theHandle)
            SendKeys.Send(percorso)
            SendKeys.SendWait(vbCrLf)
            Timer1.Enabled = False