关于#check#的问题，如何解决？解释一下这段代码的意思

Private Sub Check1_Click()

 TXstr = "01"
 Text1.Text = TXstr
 HexFaSong (Text1.Text)
 Check2.Value = False
 Check3.Value = False
 Check4.Value = False
 Check5.Value = False
 Check6.Value = False
 Check7.Value = False
 Check8.Value = False

End Sub

Private Sub Check2_Click()

 Check1.Value = False
 Check3.Value = False
 Check4.Value = False
 Check5.Value = False
 Check6.Value = False
 Check7.Value = False
 Check8.Value = False

TXstr = "02"
Text1.Text = TXstr
HexFaSong (Text1.Text)

End Sub

Private Sub Check3_Click()
TXstr = "03"
Text1.Text = TXstr
HexFaSong (Text1.Text)
Check1.Value = False
Check2.Value = False
Check4.Value = False
Check5.Value = False
Check6.Value = False
Check7.Value = False
Check8.Value = False
End Sub

Private Sub Check4_Click()
TXstr = "04"
Text1.Text = TXstr
HexFaSong (Text1.Text)
Check1.Value = False
Check2.Value = False
Check3.Value = False
Check5.Value = False
Check6.Value = False
Check7.Value = False
Check8.Value = False
End Sub

Private Sub Check5_Click()
TXstr = "05"
Text1.Text = TXstr
HexFaSong (Text1.Text)
Check1.Value = False
Check2.Value = False
Check3.Value = False
Check4.Value = False
Check6.Value = False
Check7.Value = False
Check8.Value = False
End Sub

Private Sub Check6_Click()
TXstr = "06"
Text1.Text = TXstr
HexFaSong (Text1.Text)
Check1.Value = False
Check2.Value = False
Check3.Value = False
Check5.Value = False
Check4.Value = False
Check7.Value = False
Check8.Value = False
End Sub

Private Sub Check7_Click()
TXstr = "08"
Text1.Text = TXstr
HexFaSong (Text1.Text)
Check1.Value = False
Check2.Value = False
Check3.Value = False
Check5.Value = False
Check6.Value = False
Check8.Value = False
Check4.Value = False
End Sub

Private Sub Check8_Click()
TXstr = "07"
Text1.Text = TXstr
HexFaSong (Text1.Text)
Check1.Value = False
Check2.Value = False
Check3.Value = False
Check5.Value = False
Check6.Value = False
Check4.Value = False
Check7.Value = False
End Sub

Private Sub Command101_Click()
Check100.Value = False
Timer2.Enabled = Not (Timer2.Enabled)
End Sub

Private Sub Command20_Click()
TXstr = "01"
Text1.Text = TXstr
HexFaSong (Text1.Text)
End Sub

Private Sub Command21_Click()
TXstr = "02"
Text1.Text = TXstr
HexFaSong (Text1.Text)
End Sub

Private Sub Command22_Click()
TXstr = "03"
Text1.Text = TXstr
HexFaSong (Text1.Text)
End Sub

Private Sub Command23_Click()
TXstr = "04"
Text1.Text = TXstr
HexFaSong (Text1.Text)
End Sub

Private Sub Command24_Click()
TXstr = "05"
Text1.Text = TXstr
HexFaSong (Text1.Text)
End Sub

Private Sub Command25_Click()
TXstr = "06"
Text1.Text = TXstr
HexFaSong (Text1.Text)
End Sub

Private Sub Command26_Click()
TXstr = "07"
Text1.Text = TXstr
HexFaSong (Text1.Text)
End Sub

Private Sub Command27_Click()
TXstr = "08"
Text1.Text = TXstr
HexFaSong (Text1.Text)
End Sub
能不能给我解释一下这段代码，痛苦。。