※唯一、一番の考慮点は、下記の「JJCCJ」のみで、それ以外は非常にカンタンです。
下記の「JJCCJ」の意味は、それぞれの引数の型を指定するそうですが、詳しくは公式ヘルプ(エクセル側)をご覧くださいませ。
※エクセルの無い環境では動作しません。ご注意ください。
Kantan.vbs
Dim excel
Set excel = CreateObject("Excel.Application")
Dim strMacro
strMacro = "CALL('user32', 'MessageBoxA', 'JJCCJ', 0, 'Msg画面が描画・完了しましたら、OKを押してください。', 'Windows API in VBS', 0)"
strMacro = Replace(strMacro, "'", """")
excel.ExecuteExcel4Macro(strMacro)
※動作確認環境 : Win7 Pro