No14607.VBAでマクロを作成or編集

> VBAでACCESSのマクロを作成する方法を教えてください。
こんな感じで出来ますね。
VBAで MacroX という名前のマクロを作ります(MacroXが既存なら編集します)。
マクロの内容はVBAで書くと
--------------------------------------------------
If MsgBox("はい?いいえ?", vbYesNo) = vbNo Then
MsgBox "いいえが選択されました。"
Else
MsgBox "はいが選択されました。"
End If
--------------------------------------------------
といういたって簡単なマクロです。

'YU-TANGさんの
'http://www.f3.dion.ne.jp/~element/msaccess/AcTipsVbaHowToConvertAccObjToText.html
'を参考にしました。
Dim FSO As Object
Dim txtSTRM As Object
Dim tmpName As String

Set FSO = CreateObject("Scripting.FileSystemObject")
tmpName = CurrentProject.Path & "\" & FSO.GetTempName
Set txtSTRM = FSO.OpenTextFile(tmpName, 2, True)
With txtSTRM
.writeline "Version =196611"
.writeline "ColumnsShown = 11"

.writeline "Begin"
.writeline " Condition = ""MsgBox(\""はい？いいえ？\"",4)=7"""
.writeline " Action = ""MsgBox"""
.writeline " Argument =""いいえが選択されました。"""
.writeline " Argument =""0"""
.writeline " Argument =""0"""
.writeline "End"

.writeline "Begin"
.writeline " Condition = ""..."""
.writeline " Action =""StopMacro"""
.writeline "End"

.writeline "Begin"
.writeline " Action =""MsgBox"""
.writeline " Argument =""はいが選択されました。"""
.writeline " Argument =""0"""
.writeline " Argument =""0"""
.writeline "End"

.Close
End With
LoadFromText acMacro, "MacroX", tmpName
FSO.DeleteFile tmpName
Set FSO = Nothing

私だったら、絶対そのままVBAで記述しますね。

注： .writeline "Version =196611"
　　　　　　　　　　　　　^^^^^^
はAc2007のものです。Ac2003は確認して下さい。