Imports System

Imports System.Text.RegularExpressions

Public Module Module1

    Public Sub Main()

        Dim pattern As String = "^(?!.*(.)\1\1)(?=.*[a-z])(?=.*[A-Z])(?=.*[\[\]\^\$\.\|\?\*\+\(\)\\~`\!@#&\-_+={}'"":;,])[0-9a-zA-Z\[\]\^\$\.\|\?\*\+\(\)\\~`\!@#&\-_+={}'"":;,]{8,}$"

        Dim validinputs() As String = { "Abcde!LeBronJames1", "12345AaA$", "Tester99!", "$Argument2" }

        Dim invalidinputs() As String = { "Tester99", "$Argument222", ">LeBronJames789", "Password00" }

​

        Console.WriteLine("Should be valid")

        For Each input As String In validinputs

            Console.WriteLine(Regex.IsMatch(input, pattern))

        Next

​

        Console.WriteLine("Should be invalid")

        For Each input As String In invalidinputs

            Console.WriteLine(Regex.IsMatch(input, pattern))

        Next

​

        End Sub

End Module