salve ragazzi mi sembra di aver cercato bene, ma:

non riesco a dividere i valori numerici dalle lettere presenti in una stringa,

es. ho 01234A e vorrei come risultato 01234...

in realtà ho trovato una funzione, ma non riesco a farla girare:

'leggo la stringa da analizzare
stringa = RsViario(6)
'funzione
Function numerica(stringa) As Double
Dim i As Long
Dim a
Dim temp As String

For i = 1 To Len(stringa)
a = Mid(stringa, i, 1)
If a Like "[0-9]" Then
temp = temp & a
End If
Next i

numerica = temp

End Function


potreste aiutarmi??
Grazie!!