Extraire les caractères numériques en VB

    ExtFunction = Mid(x, InStr(x,"3060") , 4)

Public Function X_chiffres1(x As String) As String  
If x = "" Then  
  X_chiffres1 = ""  
Else  
  If IsNumeric(Left(x, 1)) Then  
    X_chiffres1 = Left(x, 1) & X_chiffres1(Right(x, Len(x) - 1))  
  Else  
    X_chiffres1 = X_chiffres1(Right(x, Len(x) - 1))  
  End If  
End If  
End Function  

Public Function X_chiffres2(x As String) As String
Dim s, k As Long
s = ""
For k = 1 To Len(x)
  If IsNumeric(Mid(x, k, 1)) Then
     s = s & Mid(x, k, 1)
   End If
Next k
X_chiffres2 = s
End Function

    x = "Vendu= 3060 ; retour= 623 "

Sub Test()  
Dim x As String, d  
    x = "Vendu= 3060 ; Retour= 623 "  
    d = VdRe(x, 0) 'Avec 0 = 3060 : avec 1 = 623  
End Sub  

Public Function VdRe(x As String, Optional Mode As Integer) As Double  
Dim S As String, i As Integer, e As Integer  
    S = IIf(Mode = 0, "Vendu= ", "Retour=")  
    i = InStr(x, S)  
    If i > 0 Then  
        S = Trim(Mid(x, i + 7))  
        For e = 1 To Len(S)  
            If Not IsNumeric(Mid(S, e, 1)) Then Exit For  
        Next e  
        VdRe = Val(IIf(e > Len(S), S, Left(S, e - 1)))  
    End If  
End Function