It could be because some of your data fields are string values with a leading or trailing space. Try replacing the fourth line in your code with:
Select Case Trim(UCase(c))
This will remove any leading or trailing spaces of your input variables.