Контроль введенной в приложение информации

If введенный символ [русская буква] Then
'продолжается ввод
Else сообщение "Вводить можно только русские буквы"
End if

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If Not IsNumeric(TextBox1.Text) Then MsgBox("ТыДыщь", MsgBoxStyle.Information)
' Если(IF) в текстбоксе введены НЕ(Not) цифры(IsNumeric) тогда(Then) Сообщение (MsgBox)
    End Sub

Запретить русские символы
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal..
If Asc(e.KeyChar) >= 192 Then e.Handled = True
‘If e.KeyChar <= Chr(192) Then e.Handled = True
End Sub
 
Ввод только русских символов (прописные)
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal..        Dim clovo As String = "абвгдеёжзиклмнопрстуфхцшщъьячюэы"
If clovo.IndexOf(e.KeyChar) < 0 Then e.Handled = True
End Sub
 
Все русские символы и символ Backspace
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal..        Dim clovo As String = "абвгдеёжзиклмнопрстуфхцшщъьячюэы"
If clovo.IndexOf(UCase(e.KeyChar)) < 0 And clovo.IndexOf(LCase(e.KeyChar)) < 0 And Not e.KeyChar = vbBack Then e.Handled = True
‘Тоже самое   
‘Dim clovo As String = "абвгдеёжзиклмнопрстуфхцшщъьячюэы"
‘If clovo.ToLower.IndexOf(e.KeyChar.ToString.ToLower) < 0 Then ‘e.Handled = True
End Sub
 
 
Запрет на прописную и обычную букву "к"
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal..        
If e.KeyChar = "к" Or e.KeyChar = "К" Then e.Handled = True
End Sub
 
 
'только русские(пр.загл.) и цифры …..у обоев вар.  проскакивает символ №
3вариант исключает его ( в событии кейдавн)
Private Sub k_KeyPress(ByVal sender As Object, ByVal e As ..
1)If e.KeyChar < Chr(192) And (e.KeyChar < Chr(48) Or e.KeyChar > Chr(57)) Then e.Handled = True
2)If e.KeyChar < Chr(192) And Not Char.IsDigit(e.KeyChar) Then e.Handled = True
3)If e.Modifiers = Keys.Shift Then e.SuppressKeyPress = True
 'If e.Shift Then e.SuppressKeyPress = True
End Sub
 
 
 
 
проверка : латынь или русский
Dim vop As String = InputBox("")
        Dim i, chislo As Integer
        If vop = "" Then
            MsgBox("Вводить обязательство тут")
            Exit Sub
        Else
        For i = 0 To Len(vop) – 1  'vop.Trim.Length - 1  'chislo - 1
             If vop.Substring(i, 1) Like "[аА-яЯ]" Then
             MsgBox("Привет, " & vop)
             Exit Sub
             End If
            Next
        End If
        MsgBox("Латынские буквы запрещены")
--
Проверка (2) : латынь или русский 
       Dim text As String = CStr(TextBox1.Text)
        If text.Trim.Length > 0 Then
        For cikl As Byte = 0 To Len(text) - 1
        If text.Substring(cikl, 1) Like "[аА-яЯ]" Or text.Substring(cikl, 1) Like "[0-9]" _
        Or text.Substring(cikl, 1) Like "[-_=]" Then
 
        Else
        MsgBox("Некорректный пароль! Сотрите этот  *" & text.Substring(cikl, 1) & "*  символ", _
                     MsgBoxStyle.Exclamation, "Внимание")
        Exit Sub
                End If
            Next
        Else
        TextBox1.Focus()
            Exit Sub
        End If
        MsgBox("Добро пожаловать! Ваш пароль : " & text, MsgBoxStyle.Information, "Вход")