下列代码通不过，请高手指点一下：

Private Sub Command1_Click()
Dim a, T2, h As String, T1, i, j As Integer
For i = 1 To Len(Text2.Text)
T2 = T2 + Hex$(Asc(Mid$(Text2.Text, i, 1))) ；要求Text2.Text内容为汉字 ?
h = Mid(Text4.Text, 1, 4) & Mid(Text4.Text, 6, 4) ；要求text4.text内容为字母和数字
Next i
For j = 1 To Len(T2) Step 2
X = X & Mid(T2, j, 2)
Next j
y = h Mod X ;提示错误：类型不匹配
Text1.Text = y
End Sub

[此贴子已经被作者于2005-12-18 16:37:51编辑过]

问题是：
需要： x mod y
x 必须是 ABD4-3FE9 之类的 ，y 要求是（比喻 开--取得的是BFAA），
要用 ABD43FE9 mod BF
就弄不明白了 ，烦请指教

如 Hex((&HABD43FE) Mod &HBF) 这样倒可以，
第一个数是定植，可第二个数是不定值，即将&HBF 换成个变量
就通不过了
也就是上面的代码，怎样修改才能通过

[此贴子已经被作者于2005-12-18 23:33:32编辑过]