Dim sZahl As String
Dim i As Long
Dim sText As String
 
sText = "(10)Monate(e)"
 
For i = 1 To Len(sText)
  If IsNumeric(Mid$(sText, i, 1)) Then sZahl = sZahl & Mid$(sText, i, 1)
Next i
 
MsgBox sZahl

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de