si, trattasi di numeri da 1 a 90
78
7= decina
8= cadenza
la parte decimale

cmq sia ho ho fatto cosi :
am1 = Mid$(amb1, 2, 1)
e mi restituisce l'8
ovviamente se fose un numero < 10

chiedo ad eregon se basta quello che ha scritto lui :

am1 = Val(Left$(Format$(78, "00"),1))