Imports System
Imports System.Text.RegularExpressions
Public Class Test
Public Shared Sub Main()
Dim rx As Regex = New Regex("\A2[0-9]{9}(?:\r\n2[0-9]{9})*\z")
Console.WriteLine(rx.IsMatch("2123123123"))
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKIApQdWJsaWMgQ2xhc3MgVGVzdAoJUHVibGljIFNoYXJlZCBTdWIgTWFpbigpCgkJRGltIHJ4IEFzIFJlZ2V4ID0gTmV3IFJlZ2V4KCJcQTJbMC05XXs5fSg/OlxyXG4yWzAtOV17OX0pKlx6IikKICAgIAlDb25zb2xlLldyaXRlTGluZShyeC5Jc01hdGNoKCIyMTIzMTIzMTIzIikpCglFbmQgU3ViCkVuZCBDbGFzcw==