Public Function FilterZiffer(ByVal strText as String) As List(Of String)
		Dim Liste As New List(Of String)
		Dim Counter As Integer = 0
		Dim Ziffer As Integer = 0
 
		For Ziffer = 0 To 9
			For i As Integer = 0 To strText.Length-1
				If strText.Chars(i) = CStr(Ziffer) Then
					Counter += 1
					If Counter >= 9 Then Liste.Add(Ziffer)
				End If
			Next
			Counter = 0
		Next
 
		Return Liste
	End Function

		For Each abc As String In FilterZiffer(textbox1.Text)
			msgbox(abc)
		Next