全部积分请VB高手对以下VB代码进行逐句注释

Private Sub Command3_Click() '
If Option2.Value = False Then
If Trim(Text1(0).Text) = "" Or Trim(Text1(1).Text) = "" Then '当不要补充出库的信息时
MsgBox ("品名与规格不能为空！")
Text1(0).SetFocus
Exit Sub
End If
If Trim(Text1(8).Text) = "" Then
MsgBox ("请输入领料人！")
Text1(7).SetFocus
Exit Sub
End If
Else
If Trim(Text1(0).Text) = "" Or Trim(Text1(1).Text) = "" Then '入库的关键信息
MsgBox ("品名与规格不能为空！")
Text1(0).SetFocus
Exit Sub
End If
If Trim(Text1(11).Text) = "" Or Trim(Text1(12).Text) = "" Then '当要补充出库的信息时
MsgBox ("品名与规格不能为空！")
Text1(11).SetFocus
Exit Sub
End If
If Trim(Text1(8).Text) = "" Then
MsgBox ("请输入领料人！"

Private Sub Command3_Click() ' Command3点击事件
If Option2.Value = False Then '当单选按钮Option2未选中，那么····
If Trim(Text1(0).Text) = "" Or Trim(Text1(1).Text) = "" Then '当不要补充出库的信息时
MsgBox ("品名与规格不能为空！") '弹出对话框，上书"品名与规格不能为空！"，呵呵
Text1(0).SetFocus '控件数组Text1(0)获得焦点
Exit Sub
End If
If Trim(Text1(8).Text) = "" Then '如果Text1(8)的内容去空格后为空，那么····
MsgBox ("请输入领料人！") '相同的就不写了······
Text1(7).SetFocus
Exit Sub
End If
Else
If Trim(Text1(0).Text) = "" Or Trim(Text1(1).Text) = "" Then '入库的关键信息，Or是或者
MsgBox ("品名与规格不能为空！")
Text1(0).SetFocus
Exit Sub
End If
If Trim(Text1(11).Text) = "" Or Trim(Text1(12).Text) = "" Then '当要补充出库的信息时
MsgBox ("品名与规格不能为空！")
Text1(11).SetFocus
Exit Sub
End If
If Trim(Text1(8).Text) = "" Then