How convert Hex String into Byte Array in VB6

Question

I have the following byte array.

Dim Template(1023) As Byte

Then i call the fingerprint scanner device function and returns the following:

Answer 1

duplicate:

Convert hex value to a decimal value in VB6

from Andre Laszlo:

Dim hexVal as String 
hexVal = "#7B19AB" 
Dim intVal as Integer 
intVal = Val("&H" & Replace(hexVal, "#", ""))