vb数组问题

我在数组中存入了两种数据，数值型
  number = Mid(TextBox1.Text, j, i - j) '取出一段字符串
  box(boxno) = Val(number) '将取出字符串计入box中

和字符串型
box(boxno) = Mid(TextBox1.Text, i + 1, 1)

现在我要判断字符型数据的位置，该怎么办？我用下面的方法：
 If box(i) = ")" Then
……………………

vb老是说不能在string和double之间转换（我觉得是box中存了2中数据，而判断条件只考虑了字符型）。我该怎么办?
我只想找到字符型数据所在位置（即boxno），判断条件怎么将数组中的double型数据过滤掉?

不要使用两种类型：

dim Box() as string
redim Box(n)

或者：
dim Box(m) as string

都当串处理，需要计算时，再转换成数字。