1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Declare Function User32MsgBox Lib \"user32\" Alias \"MessageBoxW\" _
                       (Optional ByVal hWnd    As Long, _
                        Optional ByVal Prompt  As Long, _
                        Optional ByVal Title   As Long, _
                        Optional ByVal Buttons As Long) As Long
'______________________________________________________________________
 
Public Function MsgBoxW(cPrompt           As Variant, _
                        Optional cButtons As VbMsgBoxStyle = vbOKOnly, _
                        Optional cTitle   As String) As Long
  MsgBoxW = User32MsgBox(0, StrPtr(cPrompt), StrPtr(cTitle), cButtons)
End Function
'______________________________________________________________________
 
Sub MsgBoxW_Test()
    Call MsgBoxW(\"Text zpravy\", vbCritical, \"Nadpis\")
End Sub