msgbox做为判断条件时的使用

wb.c

请教各位高手，MSGBOX作为判断条件时，能否使用title？
因为我想使我的代码运行效果统一，但是我将MSGBOX作为判断条件件运行时，总是出现错误提示“运行时错误'5':无效的过程调用或参数”
以下是我写的代码，请高手帮忙指正。谢谢！

Sub 报关条码_合法性检查()
Dim i, j, z, s, s0, s1, s2, FirstRow, lLastRow As Long
Dim lsh, text, text1, text2, L, QYDM As String

ActiveSheet.Cells.Interior.Color = xlNone

text1 = "请问您清楚 〖报关条码〗 是在哪一列吗？" & Chr(13) & Chr(13) & "清  楚，请点击【确定】继续" & Chr(13)
text2 = "不清楚？请点击【取消】退出" & Chr(13) & Chr(13) & "（等查看清楚条形码的位置后重新运行本宏）"
text = MsgBox(text1 & text2, vbOKCancel, vbInformation, "均辉速递 -- 报关条码 合法性检查")
If text = vbCancel Then
    GoTo EndSub
End If
L = InputBox(Chr(13) & "请检查条形码所在列，并在下方输入", "均辉速递 -- 报关条码 合法性检查", "B")  '列号
QYDM = InputBox(Chr(13) & "请输入企业代码", "均辉速递 -- 报关条码 合法性检查", "0069266521")    '企业代码
If L = "" Then
    L = "B"
End If
If QYDM = "" Then   
    QYDM = "0069266521"
End If

lLastRow = Range(L & Cells.Rows.Count).End(xlUp).Row
For i = 1 To lLastRow
    If Range(L & i).value Like "*[0-9]*" Then
        Exit For
    End If
    If i = 28 Then
        MsgBox "在您选择的 “" & L & "” 列没有找到有效条码，" & Chr(13) & "请点击【确定】退出检查后重新运行本宏", vbInformation, "均辉速递 -- 报关条码 合法性检查"
    End If
Next i
FirstRow = i '判断报关条码起始行号，并赋值

For i = FirstRow To lLastRow
        s0 = ""
    If Range(L & i) <> "" Then
        s1 = 0
        s2 = 0
        s0 = Mid(Cells(i, L), Len(Cells(i, L))) / 1  '也可使用val函数来提取字符串的数字
        lsh = Mid(Cells(i, L), 1, Len(Cells(i, L)) - 1) '流水号
        text = QYDM & lsh
        
        For j = Len(text) To 1 Step -2 '奇数位乘3后求和
            z = Mid(text, j, 1) * 3
            s1 = s1 + z
        Next j
        
        For j = Len(text) - 1 To 1 Step -2    '偶数位求和
            z = Mid(text, j, 1)
            s2 = s2 + z
        Next j

        s = 10 - Mid(s1 + s2, Len(s1 + s2)) '检验码计算
        s = Mid(s, Len(s)) / 1
        
     End If
   
    If s <> s0 Then
        Range(L & i).Interior.Color = vbYellow
    End If
   
Next

EndSub:
End Sub

[ 本帖最后由 wb.c 于 2011-6-30 00:08 编辑 ]

becomedoc

别的没有试验，就跑到下面这块，楼主可以试试看
text = MsgBox(text1 & text2, vbOKCancel + vbInformation, "均辉速递 -- 报关条码 合法性检查")
If text = vbCancel Then Exit Sub
可以把标签去掉

wb.c

谢谢becomedoc，我一直就没往这上面去想过。学习了！

再次感谢！

yqg2136

路过，刚才可以用上，谢谢