实际数据为840万条左右,条件为5万条左右

老师你好，我把b1数据加到5000行，程序显示 （dataStr(dn) = str黄色）下标越界，麻烦看看问题所在，谢谢！！！

老师你好，经测试速度快了很多，谢谢！！！

老师你好，测试数值时，还真是不能大于60，由于我的水平有限，想改到80没有成功，请老师指点，谢谢！

最大值等于80，谢谢！！！

谢谢指点！！！

老师你好：
查找按钮中的程序，我想将原:
Open App.Path & "\b1.txt" For Input As #1的数据来源改为文本框text4.text
Open App.Path & "\b2.txt" For Input As #1的数据来源改为文本框text5.text
运行时越界，烦请老师看看，谢谢！！！
问题：
data(1, dn) = data(1, dn) Or mask(tmp - 30)

老师这个程序放在vbnet中时，这一句： getmask mask 中会显示：变量“mask”在赋值前被使用。可能会在运行时导致空引用异常

能修改吗，谢谢！