vb程序无法正常运行

Question

Private Sub OptionButton1_Click()
Label1.Caption = "a"
End SubPrivate Sub OptionButton2_Click()
Label2.Caption = "b"
End SubPrivate Sub OptionButton3_Click()
Label1.Caption = ""
Label2.Caption = ""
End Sub
程序如上，是一个选择程序（鼠标点击optionbutton1或optionbutton2，则label1或label2显示a或b,点击optionbutton3，则清空）每次新开一个word文档输入以上程序可以正常运行，一旦保存后退出，再打开就无法正常运行，本人初学，请各位高手不吝赐教，多谢！