Visual Basic - convertir variant a byte

Que onda foro, haganme un favor,


como puedo convertir esta variable (letra as variant) a byte necesito imprimirtal pego un pedazo de codigo para que se den una mejor idea de lo que hago

For n = 1 To 10
item = item + 1
Set PuntosProcDig = PuntosDig.Col.item(item)
PuntoProc.Nombre = PuntosProcDig.Nombre

Letra2 = Left$(PuntoProc.Nombre, n)
Letra = Right$(Letra2, 1)

Print #1, Hex(Letra) *****no son del mimo tipo solo imprime variables byte*****
Next ***** ahi ta la fuga*****

proba usando:

CByte (hex(letra))

ojala le sirva a alguien

For n = 1 To Len(elemento.Nombre) 'RECORRES LAS LETRAS DEL NOMBRE
auxs = Asc(Mid(elemento.Nombre, n, 1)) 'conviertes a codigo asci
Print #1, Hex(auxs)
Next