[VB6] Separare byte e stringa da variabile Variant

[Luciano79]

Credo sia chiaro
Il numero è scritto in esadecimale.
Come prima cosa devi essere sicuro che tutti e tre i bytes indicano la dimensione (leggi il manuale dello strumento con cui comunichi).
Poniamo che tutti e tre i bytes lo siano, per calcolare il valore decimale devi fare così:
per ottenere un valore decimale di un singolo byte si usa ASC(bytes)
partendo dal byte di DESTRA
ValoreDecimale = ASC(primo byte) * 256^0 + ASC(secondo byte) * 256^1 + ASC(terzo byte) * 256^2
Quindi

Function VisualizzaValoreDecimale (Numero As String) As Long
    Dim I as Integer
    Dim Somma As Long
    Somma = 0
    For I = Len(Numero) To 1 Step -1
        Somma = Somma + ASC(Mid(Numero, I, 1)) * 256^(Len(Numero)-I)
    Next I
    VisualizzaValoreDecimale = Somma
End Function

...
    LunghezzaCheCerchi = VisualizzaValoreDecimale(Mid(DatiRicevuti,1,3))
...