vb.net word counter

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim nEnter As String = "qwertyuiopasdfghjklzxcvbnm,.1234567890-=\"
        nEnter &= "`~!@#$%^&*()_+|QWERTYUIOPASDFGHJKLZXCVBNM<>?:{}[];'./"
        nEnter &= """" ' the string does not contain enter and space
        Dim wasSpecialChar As Boolean = True
        Dim counter As Integer = 0
        For index = 0 To RichTextBox1.TextLength - 1
            If nEnter.Contains(RichTextBox1.Text(index)) And wasSpecialChar Then
                counter += 1
                wasSpecialChar = False
            ElseIf Not nEnter.Contains(RichTextBox1.Text(index)) Then
                wasSpecialChar = True
            End If
        Next
        MsgBox(counter)
    End Sub
End Class