各位先生好！
如下内嵌加密程序，执行过程中总出现在dataX2 停止，提示为“编译错误，变量为定义“！请诸位高人帮忙看看，并有可能帮忙修改一下，谢谢！
Private Sub Form_Load()
Dim retVal, outdata, y1, y2 '加密钥匙代码
.
.
.
Randomize '加密钥匙代码
retVal = Int((2094967295 * Rnd) + 1)
outdata = retVal
y1 = Hex(shieldpc(outdata))
y2 = Hex(Lock32_Function(outdata) And &H7FFFFFFF)
If y1 = y2 Then
Else
ExitProcess (0)
End If
End Sub

Function shieldpc(outdata)
Dim key1, key2, key3, key4 '加密钥匙代码
Dim y1, y2, y22, y11

key1 = 2219 '该密码钥匙
key2 = 3351
key3 = 23381
key4 = 40189

dataX2 = outdata And &HFFFF0000
For Count1 = 0 To 3
dataX2 = dataX2 / 16
Next Count1
dataX2 = &H1FFFF And dataX2

If dataX2 > 65535 Then
dataX2 = dataX2 - 65536
End If

dataX1 = &H1FFFF And outdata

If dataX1 > 65535 Then
dataX1 = dataX1 - 65536
End If

step1 = dataX1 Xor key2

step2 = dataX2 Xor key1

step3 = step1 + step2

If step3 > 65535 Then
step3 = step3 - 65536
End If

step4 = step3 * 16 '<< 4
While step4 > 65535
step4 = step4 - 65536
Wend

step5 = step4 Mod key4


step6 = step5 * key3

While step6 > 2147483647
step6 = step6 - 2147483647 - 1
Wend
While step6 < -2147483647
step6 = step6 + 2147483647 + 1
Wend
step7 = dataX1 + key1
If step7 > 65535 Then
step7 = step7 - 65536
End If
step8 = step7 Mod key3

step9 = key4 Xor dataX2

step10 = step8 * step9
While step10 > 2147483647
step10 = step10 - 2147483647 - 1
Wend

While step10 < -2147483647
step10 = step10 + 2147483647 + 1
Wend


step11 = step10 Xor step6

shieldpc = step11

End Function

   如何 定义这个变量 dataX2？

兄弟材疏学浅呀！我使用vb编程加密狗加密，打算搞一个内嵌加密。在没有狗时，让程序自动关闭，因此请兄弟指教如何定义……。谢谢！

再就是，普通制作一个窗口时，按如上编码向前就没有问题！