Query Do Until Loop

[plasma33]

Hi Guys,

I have a query. When I use this below code it works fine->

    Dim InputCollections As Object
    Dim m As Integer
    Dim e As Object

    Set InputCollections = IE.Document.getElementsByTagName("IMG")
        m = 0
        While m < InputCollections.Length
            If InputCollections(m).alt = "Save results in Excel document." Then Set e = InputCollections(m)
            m = m + 1
        Wend
        
    e.Click

but when I try to do this one it does not work->

    Dim InputCollections As Object
    Dim m As Integer
    Dim e As Object

    Set InputCollections = IE.Document.getElementsByTagName("IMG")
        m = 0
        While m < InputCollections.Length
            If InputCollections(m).alt = "Save results in Excel document." Then Set e = InputCollections(m)
            m = m + 1
        Wend
        
    Do Until e.Click
    DoEvents
    Loop

Can anyone please help me here.

Thanks in advance.

Cheers
plasma33