Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" _ (hwnd As Long, lpText As String, _ lpCaption As String, wType As Long) As LongSub Test() MessageBox AppWindow.Handle, "Some Message", "Some Caption", 64End Sub