xl.ScreenUpdating не останется равным false, любая информация будет принята с благодарностью

Question

Приведенный ниже код собирает информацию с зеленого экрана IBM и помещает данные в Excel. У меня есть много других подобных программ, но по какой-то причине, как только вы попадаете на строку кода со звездочками, она автоматически переключает свойство обратно в true. Есть идеи, почему это происходит? Я также включил декларации для Excel.

    Dim xl = GetObject(, "Excel.Application")
    Dim rates = xl.Range("A1")

    While rates.Value <> ""

        xl.ScreenUpdating = False
        btnScreenUpdating.Text = "Screen Updating Is: OFF

        Dim currentBrand = rates.Value
        rates = rates.Offset(0, 1)
        currentHotel = rates.Value
        rates = rates.Offset(0, 1)

        myscreen.SendKeys("VTDH/" & txtVendorCode.Text & "/" & currentHotel)
        myscreen.SendControlKey(ControlKeyCode.Transmit)
        myscreen.WaitForCursor(3000, 4, 2)

        ***rates.Value = myscreen.GetText(3, 2, 10)
        rates = rates.Offset(0, 1)
        rates.Value = Trim(myscreen.GetText(3, 35, 4))
        rates = rates.Offset(1, -3)

    End While