Proper use of Sendkeys (1 Viewer)

    Dim IE As Object
    Dim IEpage As Object
    Dim dummy As String
    Dim i As Integer
 
    Set IE = CreateObject("internetexplorer.application")
    IE.Visible = True
    With IE
     .Navigate "login page"
      'Do Until IE.ReadyState = 4 'READYSTATE_COMPLETE
      'DoEvents
       Do While .Busy
             DoEvents
        Loop
    End With
 
   Set IEpage = IE.Document
 
    AppActivate "Window Title", True
    Do Until IE.ReadyState = 4 'READYSTATE_COMPLETE
           DoEvents
    Loop
 
     i = 1
     Do While i <= 8
        SendKeys "{tab}", True
    i = i + 1
   Loop
   SendKeys "{Enter}", True
 
  'IE.Quit
  Set IE = Nothing
  Set IEpage = Nothing