Sorted .... Perfect

        Dim isMatch As Boolean
        Select Case True

            Case bnmoP_1.Value
                isMatch = IsDate(mvaEmployeeData(iEmployeeNo, iColumnNo))
            Case bnmoP_2.Value
                isMatch = Not IsDate(mvaEmployeeData(iEmployeeNo, iColumnNo)) And Not (mvaEmployeeData(iEmployeeNo, iColumnNo)) = ""
        End Select