Texte Eclater avec critère chiffres

Function Eclater(t$)
Dim i%, j%, a$(2)
For i = 1 To Len(t)
    If IsNumeric(Mid(t, i, 1)) Then Exit For
Next
For j = Len(t) To 1 Step -1
    If IsNumeric(Mid(t, j, 1)) Then Exit For
Next
If j = 0 Then j = i 'si aucun chiffre
a(0) = Left(t, i - 1)
a(1) = Mid(t, i, j - i + 1)
a(2) = Mid(t, j + 1)
Eclater = a 'vecteur horizontal
End Function