Option Explicit
 
Call Main()
 
Sub Main()
    Dim win32
    Set win32 = CreateObject("DynamicWrapper")
    win32.Register "user32.dll", "MessageBoxA", "i=hssu", "f=s", "r=l"
    win32.MessageBoxA Null, "Hello, Win32 API(VBScript) World!", "Hello, World!", 0
End Sub