Nothing

fz.sz(i)=mid(text1.text,i,1)
上面的用法错了
dim sz() as fs
之后可以这样使用
sz(n).fz=mid(text1.text,i,1)

Nothing

你根踪一下n的值是否正常
另外，数据是从0开始的
for i=1 to n
可以改成
for i=0 to n

Nothing

下标越界是你的n值有问题，也就是说你的n值小于以后数给访问的值，
你用了下面的循环，可能数据不对，注意，数组是从0开始的。
For i = 1 To Len(Text1.text)

Nothing

你的程序写的太乱了，后面的代码还少了一个End if 我连分析起来都很难
建议你重写这部份代码。

Nothing

If Val(fh) >= 0 And Val(fh) <= 9 Then

这句有问题，不论你输入的是什么样的字符，只要不是数字 Val返回的值就是0

例如 Val("-")返回值就是0

Nothing

If Val(fh) >= 0 And Val(fh) <= 9 Then

这句有问题，不论你输入的是什么样的字符，只要不是数字 Val返回的值就是0

例如 Val("-")返回值就是0
你可以使用这样的
If IsNumeric(fh) Then