Check for FontAwesome / Material Icon:
Private Sub CheckForFontAwesome(str As String) As Boolean
' Regex pattern to match "fa-" followed by a name.
' This will match strings like "fa-star", "fa-user-circle", etc.
Dim faPattern As String = "fa-[a-z0-9-]+"
Dim m As Matcher
m = Regex.Matcher(faPattern, str)
' Matcher.Find returns True if any part of the string matches the pattern.
Return m.Find
End Sub
Private Sub CheckForMaterialIcon(str As String) As Boolean
' Regex pattern to match "material-icons" or "mi-" followed by a name.
Dim MaterialPattern As String = "(material-icons|mi)-[a-z0-9_]+"
Dim m As Matcher
m = Regex.Matcher(MaterialPattern, str)
' Matcher.Find returns True if any part of the string matches the pattern.
Return m.Find
End Sub