Imports System
Imports System.Text.RegularExpressions
Module Module1
Function CountCharacters(text As String) As (uppercase As Integer, lowercase As Integer, digits As Integer, special As Integer)
Dim uppercase = Regex.Matches(text, "[A-Z]").Count
Dim lowercase = Regex.Matches(text, "[a-z]").Count
Dim digits = Regex.Matches(text, "\d").Count
Dim special = Regex.Matches(text, "[^A-Za-z0-9]").Count
Return (uppercase, lowercase, digits, special)
End Function
Sub Main()
Dim s As String = "Programming&AI@2026!"
Dim result = CountCharacters(s)
Console.WriteLine("Uppercase: " & result.uppercase)
Console.WriteLine("Lowercase: " & result.lowercase)
Console.WriteLine("Digits: " & result.digits)
Console.WriteLine("Special characters: " & result.special)
End Sub
End Module
' run:
'
' Uppercase: 3
' Lowercase: 10
' Digits: 4
' Special characters: 3
'
