Imports System.IO
Imports System.Text.RegularExpressions
 
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        ' Datei einlesen
        Dim Datei As New StreamReader("d:\test.txt")
        Dim TextInhalt As String = Datei.ReadToEnd()
        Datei.Close()
 
        ' Hier werden Zahlen mit mindestens 5 oder mehr als 5 Stellen gefunden 
        Dim mc As MatchCollection
        Dim r As New Regex("[0-9][0-9][0-9][0-9][0-9]")
        mc = r.Matches(TextInhalt)
        Dim FünfStelligeZahl As Integer = mc.Count
 
        ' Hier werden Zahlen mit mindestens 6 oder mehr als 6 Stellen gefunden 
        r = New Regex("[0-9][0-9][0-9][0-9][0-9][0-9]")
        mc = r.Matches(TextInhalt)
        Dim SechsStelligeZahl As Integer = mc.Count
 
        ' Zahlen mit 6 oder mehr Stellen von den 5 stelligen Zahlen abziehen
        TextBox1.Text = (FünfStelligeZahl - SechsStelligeZahl).ToString
    End Sub
End Class