Yep *sigh* you're suffering for my stupidity. :(
This section is all wrong
str_H = Replace(str_Overall, "H", "")
str_A = Replace(str_Overall, "A", "")
str_L = Replace(str_Overall, "L", "")
In each of the above cases, you should be replacing the other letters with a blank (""), not the letter...