じゃあ>>395をふまえて動くことを確認したコード

Imports System.Text.RegularExpressions


Dim strText As String = "元の文字列"
Dim m As Match = Regex.Match(strText, "\d{4,}")
While m.Success
　　If m.Value.Length = 4 Then
　　　　'〜ここに必要なコードを書くこと〜
　　　　'〜m.Valueに欲しいデータは入っている〜
　　End If
　　m = m.NextMatch()
End While