Voilà une petite fonction qui extrait les différents nombres de ton opération et les renvoie sous forme d'une collection :
Function ExtraitNb(ByVal Op$) As Collection
'Ti - Ce lien n'existe plus
'récupère les nombres d'une opération sous forme d'une collection
Const Operateurs$ = '+-*:/^()'
Dim Col As New Collection, Bcle&, Car$, Nb$
Op = Replace(Op, ' ', '')
For Bcle = 1 To Len(Op)
Car = Mid$(Op, Bcle, 1)
If InStr(1, Operateurs, Car) Then
If Nb <> '' Then Col.Add Nb
Nb = ''
Else
Nb = Nb & Car
End If
Next Bcle
If Nb <> '' Then Col.Add Nb
Set ExtraitNb = Col
End Function
Sub Test()
Dim Op$, ColNombres As Collection
Op = '5.25 * (3 - 6)'
Set ColNombres = ExtraitNb(Op)
End Sub