Private Sub Command1_Click()
Dim omg() As String
Texta = "law,omh,awhj,noob" 'Names...
omg = Split(Texta, ",")
For i = 0 To 3 'number of words starts from 0
If omg(i) = nameoftextbox.Text Then
MsgBox "go to hell"
End If
Next i
End Sub

' Prevent hacking
            For i = 1 To Len(Name)
                n = Asc(Mid(Name, i, 1))
               
                If (n >= 65 And n <= 90) Or (n >= 97 And n <= 122) Or (n = 95) Or (n = 32) Or (n >= 48 And n <= 57) Then
                Else
                    Call AlertMsg(Index, "Invalid name, only letters, numbers, spaces, and _ allowed in names.")
                    Exit Sub
                End If
            Next i