I want to be able to use the text boxes here on this website: http://mylanguages.org/arabic_romanization.php. But there isn't any ID given in the HTML for the text boxes here. Can you please help?

Sub obj_click()
Dim Initial As Object
Dim Final As Object
Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Top = 0
    objIE.Left = 0
    objIE.Width = 800
    objIE.Height = 600
    objIE.AddressBar = 0
    objIE.StatusBar = 0
    objIE.Toolbar = 0
    objIE.Visible = False
    objIE.Navigate ("http://mylanguages.org/arabic_romanization.php")

Do
DoEvents

Loop Until objIE.readystate = 4
    Set Initial = objIE.Document.GetElementByID("")
    Initial.OnFocus
    Initial.Value = Sheet1.Range("A1").Value
    Initial.Onkeyup
Do
DoEvents

Loop Until objIE.readystate = 4

MaxWait = 15
MaxWaitTime = DateAdd("s", MaxWait, Now())

tryagain:
If Now() > MaxWaitTime Then Exit Sub
Set Final = objIE.Document.GetElementByID("")
If Final.Value = "" Then GoTo tryagain
Sheet1.Range("A2").Value = Final.Value
    
    objIE.Quit
End Sub