Public Sub IsBoolean(Value As String) As Boolean
Return IIF(Value.ToLowerCase = True Or Value.ToLowerCase = False, True, False)
End Sub
Public Sub StringToBoolean(Value As String) As Object
Return IIF(Value.ToLowerCase = True Or Value.ToLowerCase = False, Value.ToLowerCase, Null)
End Sub