Internet Explorer interaction

I can't really give away the website address online as it's probably not very secure, but the code I have is in the early stages and is as follows:

Dim ie As InternetExplorer
Dim C
Dim Value1 As Boolean, ieForm
Dim Value2 As String, MyLogin As String

redo:
Value1= Application.InputBox("Please enter value 1", "Ecaytrade username", Default:="Value1", Type:=2)
Value2 = Application.InputBox("Please enter value 2", "Ecaytrade Password", Default:="Value2", Type:=2)

If Value1 = "" Or Value2= "" Then GoTo redo

Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate "http://website address"

'Loop until ie page is fully loaded
Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop

For Each ieForm In ie.Document.forms
If InStr(ieForm.innertext, "Data Entry") <> 0 Then
ULogin = True
'enter details
ieForm(1).Value = Value1
ieForm(2).Value = Value2
ieForm.submit
Exit For
Else
End If
Next
Set ie = Nothing
End Sub

ieForm.submit is where it fails with runtime error 438.

Try This

Dim ieApp As InternetExplorer
    Dim ieDoc As Object
    Dim ieTable As Object
    Dim clip As DataObject
   

   Set ieApp = New InternetExplorer
   

   ieApp.Visible = True
   

   ieApp.Navigate "http://??????"
    Do While ieApp.Busy: DoEvents: Loop
    Do Until ieApp.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
           
    Set ieDoc = ieApp.Document


   With ieDoc.forms(0)
        .textUserName.Value = "username"
        .textPassword.Value = "password"
        SendKeys "{TAB}", True
        SendKeys "{TAB}", True
        SendKeys "{ENTER}", True
    End With
    
    Do While ieApp.Busy: DoEvents: Loop
    Do Until ieApp.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop