Function msg()
    MsgBox "メッセージボックスのテストだよ。" & vbLf & "表示できてますか？", vbOKOnly, "VBScriptを埋め込むテスト"
End Function