SPLIT函数问题

Question

Public ZQ8Str1, ZQ8Str2 As String
Option Base 1
Public Temp7() As Variant
...Public Sub HisDInput(ByVal I1, I2, Length, Pst, Clr As String)
...
                        Do
                            ZQ8Str2 = LottorySheet.Cells((Temp6(1) + Str + N), 3)       
                            If ZQ8Str2 <> "" Then
                                Temp7 = Split(ZQ8Str2, "/")
                            End If
                            N = N + 1
                            ASheet = "对应表"
                            Call 对应查找(LottoryBook.Worksheets(ASheet))
                        Loop While N < 5
...Public Sub 对应查找(ByVal LottorySheet As Excel.Worksheet)
    LottorySheet.Select
    If Temp7(1) = "" Then    <--此处出现错误信息:实时错误9,下标越届       
        Exit Sub
    End If
...监控信息:
Watch :   : Temp7(1) : <下标越界> : Variant/Integer : QWlottory.HisDInput
Watch :   : ZQ8Str2 : 空值 : Variant/Empty : QWlottory.对应查找如将Public Sub HisDInput(ByVal I1, I2, Length, Pst, Clr As String)中的IF语句去掉,只保留Temp7 = Split(ZQ8Str2, "/"),则又会提示实时错误13,类型不匹配哪位老大知道我的错误在哪里?谢谢!

Answer 1

如ZQ8Str2中没有"/",那么在ZQ8Str2中就是""(空).但我会在Public Sub 对应查找(ByVal LottorySheet As Excel.Worksheet)里面对此情况做相应处理.Temp(1)难道不是Temp()中的一员吗?
为什么我将Public Temp7() As Variant 改成了Public Temp7() As String后监控信息Watch :   : Temp7(1) : <下标越界> : Integer : QWlottory.HisDInput,显示Temp(1)的类型是Integer?

Answer 2

Public Temp7 As Variant