Imports System
Imports System.Text.RegularExpressions
Class Program
Public Shared Sub Main()
Dim pattern As String = "htt+p"
Dim regex As Regex = New Regex(pattern)
Dim testStrings As String() = {"http", "htttp", "httttp", "httpp", "htp"}
For Each test As String In testStrings
Dim match As Boolean = regex.IsMatch(test)
Console.WriteLine($"Matches ""{test}"": {match}")
Next
End Sub
End Class
' Matches "httpp": True or false, depending on how matches() method works
' run:
'
' Matches "http": True
' Matches "htttp": True
' Matches "httttp": True
' Matches "httpp": True
' Matches "htp": False
'