Private Sub Form_Load() 
    WebBrowser1.Navigate _
      "hxxp://www.vbip.com/forum/post.asp?Mode=Reply&Topic=3185" 
End Sub 
 
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) 
    If (pDisp Is WebBrowser1.Object) Then 
        If URL = "hxxp://www.vbip.com/forum/post.asp?Mode=Reply&Topic=3185" Then 
            WebBrowser1.Document.Forms(1).elements("FILE1").focus 
            Clipboard.Clear 
            Clipboard.SetText "C:\Folder\File.txt" 
            SendKeys "^{v}", True 
        End If 
    End If 
End Sub