ImputValidation

Function ValiText(KeyIn As Integer, _
ValidateString As String, _
Editable As Boolean) As Integer

Dim ValidateList As String
Dim KeyOut As Integer
'

If Editable = True Then
ValidateList = UCase(ValidateString) & Chr(8)
Else
ValidateList = UCase(ValidateString)
End If
'

If InStr(1, ValidateList, UCase(Chr(KeyIn)), 1) > 0 Then
KeyOut = KeyIn
Else
KeyOut = 0
Beep
End If
'

ValiText = KeyOut
'

End Function