VB中 这段是什么意思啊！

If Mid(strData, 1, 1) = "," Then '第一个字符为"
If InStr(Trim(strData), "SRFF File:") > 0 Then
strData = UCase(strData)
Me.lblJobcode = pJobCode
' inModelCode = Left(Right(Trim(StrData), 14), 9) '要删除 jim
Dim TempStr9() As String
Dim q As Integer
TempStr9() = Split(Trim(strData), "\")
For q = 0 To UBound(TempStr9())
If InStr(TempStr9(q), ".SRF") > 0 Then
inModelCode = Left(TempStr9(q), 9)
If Mid(Trim(TempStr9(q)), 10, 1) = "A" Then
pStage = "<"
Lstage.Caption = "A"
Else
pStage = ">"
Lstage.Caption = "B"

'截取第一个字符 判断是否是","
If Mid(strData, 1, 1) = "," Then '第一个字符为"
'strData是否包含"SRFF File:"
If InStr(Trim(strData), "SRFF File:") > 0 Then
'strData全部变为大写
strData = UCase(strData)
'没懂
Me.lblJobcode = pJobCode
' inModelCode = Left(Right(Trim(StrData), 14), 9) '要删除 这行备注释掉了
'这两行是定义
Dim TempStr9() As String
Dim q As Integer
'按照\分割strData字符串  返回字符串数组TempStr9()
TempStr9() = Split(Trim(strData), "\")
'遍历数组TempStr9()
For q = 0 To UBound(TempStr9())
'TempStr9(q)是否有".SRF"
If InStr(TempStr9(q), ".SRF") > 0 Then
'inModelCode 为(TempStr9(q)从左截取 截取9位
inModelCode = Left(TempStr9(q), 9)
'(TempStr9(q)地10位 是否是A
If Mid(Trim(TempStr9(q)), 10, 1) = "A" Then
'自己看吧
pStage = "<"
Lstage.Caption = "A"
Else
pStage = ">"
Lstage.Caption = "B"