[VBS]IE fill form and submit

Option Explicit
Dim ie, ipf

Set ie = CreateObject("InternetExplorer.Applicati­on")

On Error Resume Next

Sub WaitForLoad
Do While IE.Busy
WScript.Sleep 500
Loop
End Sub

Sub Find(x)
Set ipf = ie.Document.All.Item(x)
End Sub

ie.Left = 0
ie.Top = 0
ie.Toolbar = 0
ie.StatusBar = 0
ie.Height = 120
ie.Width = 1020
ie.Resizable = 0

ie.Navigate "https://www.facebook.com/"

Call WaitForLoad

ie.Visible = True

Call Find("email")
ipf.Value = "EMAIL GOES HERE"
Call Find("pass")
ipf.Value = "PASSWORD GOES HERE"
Call Find("login_form")
ipf.Submit

Call WaitForLoad
ie.Height = 700
________________________________________­______________

Know the Basics:
----------------------------------------­----------------------------------------­----------
Set ie = CreateObject("InternetExplorer.Applicati­on")

ie.Document.All.Item("INPUT ID").Value = "what you want"
ie.Document.All.Item("FORM ID).Submit
----------------------------------------­----------------------------------------­----------