Por si la cadena es de tamaño variable, podrias hacerlo asi:
Código:
Dim num, letra, nuevoNum As String
num = "abcdef325ghijkl"
For i = 1 To Len(num)
letra = Mid(num, i, 1)
If letra >= Chr(48) And letra <= Chr(57) Then
nuevoNum = nuevoNum & letra
End If
Next i
MsgBox Val(nuevoNum)
Espero te sirva
Saludos
