VBA String Manipulations - Extract Numbers

Sub Extract_Numbers_Inside_A_String()
' ______________________________________
'
' This macro extracts figures from a string
' and writes them to cell A1
' It works in Excel
' ______________________________________
'
Dim Counter As Integer
Dim myString As String
Dim myValue As Variant

myString = "AFEAJFEOAnuioeujaénvniue58123" 'define string

For Counter = 1 To Len(myString)
    If IsNumeric(Mid(myString, Counter, 1)) Then
     myValue = Mid(myString, Counter, 1)
     cells(1, 1).Value = cells(1, 1).Value & myValue
    End If
Next

End Sub