Imports System.Text.RegularExpressions
 
    Dim mc As MatchCollection = Regex.Matches(Me.RichTextBox1.Text, "\d+")
    Dim li As New List(Of String)
    For Each m As Match In mc
      li.Add(m.Value)
    Next
    'Falls als normales Array gewünscht:
    Dim a As String() = li.ToArray()