by sumeet haldankar (5 Submissions)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 21st August 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
A simple way to validate data entered by a user
API Declarations
Dim arr(5, 0) As String
Dim i As Integer
Dim arr(5, 0) As String
Dim i As Integer
arr(0, 0) = "@"
arr(1, 0) = "#"
arr(2, 0) = "$"
arr(3, 0) = "%"
arr(4, 0) = "^"
arr(5, 0) = "&"
For a = 0 To 5
i = InStr(1, Text1, arr(a, 0))
If i <> 0 Then
MsgBox "No Invalid Characters"
Exit Sub
End If
Next a