Проверка на наличие символов (напр. @#$%^)

Function IsValidString(StringToTest As String, Invalid As String)
For X = 1 To Len(Invalid)
If InStr(1, StringToTest, Mid$(Invalid, X, 1), 0) Then
IsValidString = False
Exit Function
End If
Next X
IsValidString = True
End Function

Private Sub Command1_Click()
Dim MyString As String

MyString = Text1.Text
'Замените '@#$%^&' теми символами, которые вы хотите проверить
BadChars$ = "@#$%^&"
X = IsValidString(MyString, BadChars$)

If X Then
MsgBox "Это нормальная переменная"
Else
MsgBox "Это НЕнормальная переменная"
End If
End Sub

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Проверка на наличие символов (напр. @#$%^)", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!