Declare Function MessageBoxL Lib "user32" Alias "MessageBoxW" (ByVal hwnd&, ByVal lpText As Long, ByVal lpCaption&, ByVal wType&) As Long
Sub test()
Damned
Bingo
End Sub
Private Sub Damned()
MsgBox ChrW(&H2248)
End Sub
Private Sub Bingo()
MessageBoxL 0, StrPtr("Eureka! O Joie: " & ChrW(&H2248)), StrPtr("WYSIWYG ;-)"), 0
End Sub