¡TE MALDIGO¡.

@RHL - 该0在
Maldito Tramposo usas la misma String para retornar...

---

¡Aun asi dejo la actualizada! (Edite mi codigo).

Dulces Lunas!¡.

@RHL: No deberías declarar RtlMoveMemory() por el ordinal... es probable que no funcione en todas las versiones de W$.

---

Mi código:

Private Static Sub kGetNums(ByRef s As String)
    Dim bv(0)   As Byte
    Dim pbv     As Long
    Dim rps     As Long
    Dim i       As Long
    Dim b       As Byte
    Dim w       As Long
 
    If pbv = 0 Then pbv = VarPtr(bv(0))
 
    rps = StrPtr(s) - pbv
    w = 0
 
    For i = 0 To LenB(s) Step 10
        b = bv(rps + i + 0)
        If b >= &H30 Then
            If b <= &H39 Then
                bv(rps + w) = b
                w = w + 2
            End If
        End If
        b = bv(rps + i + 2)
        If b >= &H30 Then
            If b <= &H39 Then
                bv(rps + w) = b
                w = w + 2
            End If
        End If
        b = bv(rps + i + 4)
        If b >= &H30 Then
            If b <= &H39 Then
                bv(rps + w) = b
                w = w + 2
            End If
        End If
        b = bv(rps + i + 6)
        If b >= &H30 Then
            If b <= &H39 Then
                bv(rps + w) = b
                w = w + 2
            End If
        End If
        b = bv(rps + i + 8)
        If b >= &H30 Then
            If b <= &H39 Then
                bv(rps + w) = b
                w = w + 2
            End If
        End If
    Next i
 
    bv(rps + w) = 0
End Sub
 

dim x as string
x = "1e2e3a4b"
call kGetNums(x)
msgbox x

HAY QUE DESACTIVAR LA COMPROBACIÓN DE TAMAÑO DEL BUFFER!!! Y probar compilado (of course!)!!!
He arriesgado un poco con el unwinding del bucle... pero ya veremos los resultados

Sería conveniente también que para hacer las pruebas de velocidad además de hacerlo compilado hacerlo sin comprobación de buffers y comprobación de overflow!!

PD: He ganado a "tu" mov

Eso ya es magia negra o blanca v_v
igual ya termino todo me temía lo peor v_v' osea un mov sin apis ni asm inline
ya hay ganador no creo que nadie supere la funcion la funcion de karcrack v_V

EDIT:
@Karcrack
Karcrack, te espero en el proximo reto que se valdra absolutamente de todo!

La funcion de Karcrack me crashea mmm aun asi prueba esta funcion... ("Quitar la comprovacion en limites de las matrices)... En TEORIA es mas rapida que la que puso Karcrack...

 
Private Function getNumbers2(ByRef sIn As String, ByRef sOut As String) As Long
Dim thisWord(0) As Integer  '   //  Un caracter = 2 bytes = integer
Dim dwOffSetGet As Long     '   //  Offset Get caracter...
Dim dwOffSetSet As Long     '   //  Offset Set caracter...
Dim wWord       As Integer  '   //  Letra en asc...
Dim dwRet       As Integer  '   //  Cantidad de digitos encontrados...
Dim dwLenI      As Long     '   //  Longitud en bytes de sIn...
Dim dwLenB      As Long     '   //  Longitud en bytes de sOut...
Dim dwOffset    As Long     '   //  Offset del Buffer...
 
    dwOffSetGet = (StrPtr(sIn) - VarPtr(thisWord(0))) \ 2
    dwLenB = LenB(sOut)
 
    If (dwLenB) Then
        dwOffSetSet = (StrPtr(sOut) - VarPtr(thisWord(0))) \ 2
    End If
    dwLenI = LenB(sIn)
 
    If (dwLenI) Then
        Do
            If (dwLenI And &H80000000) Then Exit Do
 
            wWord = thisWord(dwOffSetGet)
 
            If (wWord >= &H30) Then
                If (wWord <= &H39) Then
                    dwRet = (dwRet + 1)
                    If (dwLenB) Then
                        thisWord(dwOffSetSet) = wWord
                        dwOffSetSet = (dwOffSetSet + 1)
                        dwLenB = (dwLenB - 2)
                    End If
                End If
            End If
 
            dwOffSetGet = (dwOffSetGet + 1)
            dwLenI = (dwLenI - 2)
 
        Loop While (wWord > 0)
    End If
 
    thisWord(dwOffSetSet) = &H0&
    getNumbers2 = dwRet
 
End Function
 
 

Cuando lo compiles "Quitar la comprovacion en limites de las matrices"... hay en Opciones despues de darle generar exe...

Dulces Lunas!¡.