Public Function funValidate(str As String) As String
Dim bytArr() As Byte
Dim i As Integer
bytArr = StrConv(str, vbFromUnicode)
For i = 0 To UBound(bytArr)
Select Case bytArr(i)
Case 65 To 90, 97 To 122
funValidate = funValidate & Mid$(str, i + 1, 1)
End Select
Next i
End Function
'?funValidate(") 12wer-=\\=,./asASDапрке34538нлячсм.аззп .эх? @#$%^&*()")
'werasASD
|