VBA switch statement (or dictionary) to populate a value in an adjacent cell based off first character

Question

I\'ve been trying to piece together several different suggestions to achieve my desired result but I keep coming up with inconsistent results.

The workbook I am creat