Ho to bring an excel userform message box above all other windows

How to bring an excel userform message box above all other windows

Requirement:

The user is a teacher using zoom.us to deliver online lessons. The user uses excel VBA to provide content to paste into the chat function of zoom. Zoom, Powerpoint and Excel are open at the same time, and the user uses alt Tab to move between windows.

I am trying to add a timer to the excel vba program. The timer works great but the user needs the userform message box to open above the zoom window when the time has elapsed. At the present all that happens is that the excel icon in the task bar flashes red.

Code:

Private Sub Timer_cmdBtn_Click()
Dim startTime As Long

    startTime = CLng(Timer())
    Do
    Loop While ElapsedTime(startTime) < 4
   
    MsgBox ("Times up") 'This message should appear above all other windows
    
End Sub
Public Function ElapsedTime(ByVal startTime As Long) As Long

    ElapsedTime = CLng(Timer() - startTime)
    
End Function

https://www.ozgrid.com/forum/forum/help-forums/excel-vba-macros/1201847-need-to-bring-an-excel-userform-message-box-above-all-other-windows

Solution:

Code:

Option Explicit
Private Declare Function myMessageBox Lib "User32" Alias "MessageBoxA" _
        (ByVal hWnd As Long, _
        ByVal lpText As String, _
        ByVal lpCaption As String, _
        ByVal wType As Long) As Long

Sub mytest()
myMessageBox &O0, "MyMessageBox is on top of all windows", "MyMessageBox Caption", vbSystemModal
End Sub

Obtained from the OzGrid Help Forum.

Solution provided by pike.