Невозможно использовать регулярное выражение.

---

Привет! Итак, я пытался выполнить свое задание, и оно просит меня проверить альпанумерику, не зная, как это сделать, поэтому я заглянул в некоторые места в интернете и нашел наиболее читаемый для меня код, как показано ниже. но по какой-то причине это не работает, я что-то упускаю? Или я сделал что-то не так?

Что я уже пробовал:

Public Class LoginForm

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Form1.Close()
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("Username and password cannot be null")
        ElseIf TextBox1.Text.Length < 6 Or TextBox1.Text.Length > 16 Then
            MsgBox("Username and password length must be between 6 and 16")
        ElseIf TextBox2.Text.Length < 6 Or TextBox2.Text.Length > 16 Then
            MsgBox("Username and password length must be between 6 and 16")
        ElseIf IsAlphaNum(TextBox1.Text) = False Then
            MsgBox("Username must be alphanumeric")
        End If
    End Sub

    Private Function IsAlphaNum(ByVal strInputText As String) As Boolean
        Dim IsAlpha As Boolean = False
        If System.Text.RegularExpressions.Regex.IsMatch(strInputText, "^[a-zA-Z0-9]+$") Then
            IsAlpha = True
        Else
            IsAlpha = False
        End If
        Return IsAlpha
    End Function
End Class

---