求解，怎么写代码，我先点击任意单选，或者复选按钮后在点击执行按钮能保存一个数到TXT文档啊！，。比如我点击 A Option1,执行过后保存是数是2，点击 C Option2 执行过后保存是数是5

我写的怎么是空白啊，不要输入的，要内置的。。。


Private Sub Check1_Click()
MM = 9
End Sub
Private Sub Check2_Click()
MM = 19
End Sub

Private Sub Command1_Click()
strFileName = App.Path & "\001.ini"
lngHandle = FreeFile()

strWrite = AA

Open strFileName For Output As lngHandle
Print #lngHandle, strWrite
Close lngHandle


strFileName = App.Path & "\A01.ini"
lngHandle = FreeFile()

strWrite = MM

Open strFileName For Output As lngHandle
Print #lngHandle, strWrite
Close lngHandle
End Sub

Private Sub Form_Load()

End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Option1_Click()
AA = 5
End Sub

Private Sub Option2_Click()
AA = 6
End Sub

Private Sub Option3_Click()
AA = 8
End Sub