Set xlApp = CreateObject("Excel.Application")
    Set xlWB = xlApp.Workbooks.Open(xlAppFile)
    
    xlApp.Visible = True
    
    SetTimeouts 180000, 180000
    
    With xlWB.Worksheets(1)
        .Cells(mySessionNo + 1, 2).Activate
        While (myMOTM(0, 0) = "" Or myMOTM(1, 0) = "" Or myMOTM(2, 0) = "")
            myMOTM(0, 0) = .Cells(mySession + 1, 2).Value
            myMOTM(1, 0) = .Cells(mySession + 1, 3).Value
            myMOTM(2, 0) = .Cells(mySession + 1, 4).Value
        Wend
    End With
    
    xlWB.Close True
    xlApp.Quit
    
    Set xlWB = Nothing
    Set xlApp = Nothing

Public Sub SetTimeouts(ByVal lngComponentBusy As Long, ByVal lngRequestPending As Long)

  App.OLEServerBusyTimeout = lngComponentBusy
  App.OLERequestPendingTimeout = lngRequestPending

End Sub