Skip to content

Instantly share code, notes, and snippets.

@ndthanh

ndthanh/MessageBox.bas

Created July 16, 2017 01:06
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ndthanh/010c50a0144b27d42fdb8ae7440a4056 to your computer and use it in GitHub Desktop.
Save ndthanh/010c50a0144b27d42fdb8ae7440a4056 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
MessageBox.bas
Declare Function MessageBox Lib "user32" Alias "MessageBoxW" (ByVal hwnd As Long, ByVal lpText As Long, ByVal lpCaption As Long, ByVal wType As Long) As Long
Sub Test4()
Dim Text As String
Text = "Tooi yeeu Vieetj Nam"
If Range("B3").Value > 3 Then
MessageBox Application.hwnd, StrPtr(UniConvert(Text, "Telex")), StrPtr("THÔNG BÁO"), vbOKOnly
End If
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment