[RESOLVED] Who writes a Case statement like this?

[MMock]

Is it just me, or if you saw code like this you'd be shaking your head saying, "What the...?"

        Select Case (rsProductsRiders!Status)
            Case Null
                strFundingType = "S"
            Case "Y"
                strFundingType = "S"
            Case "F"
                strFundingType = "S"
            Case "W"
                strFundingType = "W"
            Case "N"
                strFundingType = "N"
            Case "M"
                strFundingType = "S"
            Case "C"
                strFundingType = "N"
            Case Else
                strFundingType = "S"
        End Select