Attribute VB_Name = "ModFuncEsoaDataEntry"
'FOR STANDALONE ESOA
Function ValiText(KeyIn As Integer, _
    ValidateString As String, _
    Editable As Boolean) As Integer

    'This function is used to filter input validation
    'Keyascii=Valitext(keyascii,"1234567890.", true )
    'Put this in keypress event

    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

Public Function Upper(nKeyAscii)
    Upper = Asc(UCase(Chr(nKeyAscii)))
End Function