ConvertBinHex

Function bintodec(ByVal valbin As String) As Long
'funzione che rende in decimale il valore binario contenuto in una stringa

Dim g1, lu As Integer 'contatore e lunghezza
Dim dec As Long 'valore tmp
Dim ttr As String 'testo tmp
lu = Len(valbin) 'inizializzazione lunghezza
ttr = valbin 'inizializzazione testo tmp

For g1 = 1 To lu 'for della pulizia
If Mid$(valbin, g1, 1) Like "[!10]" Then 'se non e' un
carattere valido ...
ttr = cancellastringa$(ttr, Mid$(valbin, g1, 1)) ' ... lo
cancella dalla stringa tmp
End If
Next

valbin = ttr 'riporta la stringa tmp in quella vera
lu = Len(valbin) 'reinizializzazione della lunghezza

For g1 = lu To 1 Step -1 'for inverso posizione per posizione
'aggiunge al valore usando la potenza crescente

dec = dec + (Val(Mid$(valbin, g1, 1)) * (2 ^ (lu - g1)))
Next
bintodec = dec 'assegnazione valore funzione

End Function