ok ma ho provato con

Private Sub Form_Load()

Dim n As Long
Dim esa As String

esa = "10"
n = CLng("&H" & esa)

Debug.Print n


End Sub


il risultato e' n= 16 mentre io vorrei che n = 10 esadecimale! e poi vorrei convertirlo in binario