Dim whereSet As Boolean = False
 
    Public Function cbVal(ByVal value As String) As String
        Dim vClass As String = "NotApplicable"
        Dim val As Integer = CInt(value)
        If val = 0 Then
            vClass = "False"
        ElseIf val = 1 Then
            vClass = "True"
        Else