Const DATASIZE = (1404 + 12) / 4

dim glngEnrollData as variant

dim vByte() as byte

dim vstr as string

If vFingerNumber < 10 Then vStr = !FPdata vByte = vStr For I = 0 To DATASIZE - 1 type mismatch here--->> glngEnrollData(I) = vByte(I * 5 + 1) glngEnrollData(I) = glngEnrollData(I) * 256 + vByte(I * 5 + 2) glngEnrollData(I) = glngEnrollData(I) * 256 + vByte(I * 5 + 3) glngEnrollData(I) = glngEnrollData(I) * 256 + vByte(I * 5 + 4) If vByte(I * 5) = 0 Then glngEnrollData(I) = 0 - glngEnrollData(I) End If Next End If