有段代码不明白意思，麻烦各位大大帮忙注释一下，多谢

有段代码不明白意思，麻烦各位大大帮忙注释一下，谢谢！
麻烦谁给小弟解释一下下面这段代码啊！先谢了！ 
If dzfy > 0 Then 
  strOutput = CYJSQX_TS(strjzh)
  strOutput = Split(Trim(strOutput), Chr(0))(0)
  strArr = Split(strOutput, "@$")
   
  If strArr(0) <> "OK" Then
  MsgBox strArr(0), vbInformation, gstrSysName
  Exit Sub
  End If
 End If

[解决办法]

VB code

If dzfy > 0 Then  strOutput = CYJSQX_TS(strjzh) 'strOutput为strjzh经函数CYJSQX_TS处理后的值  strOutput = Split(Trim(strOutput), Chr(0))(0) '新strOutput为旧strOutput去掉头尾空格后从头到第一次出现chr(0)字符之间的内容  strArr = Split(strOutput, "@$") 'strArr为strOutput中以@$间隔的若干子串  If strArr(0) <> "OK" Then '如果strArr的第一项（从0开始数）不是OK    MsgBox strArr(0), vbInformation, gstrSysName    Exit Sub  End IfEnd If