I don't know whether this is the only issue, but look at the following
str_E = Replace(str_E, "H", "")
str_E = Replace(str_E, "A", "")
str_E = Replace(str_E, "L", "")
str_E = Replace(str_E, "S", "")
str_S = Replace(str_Overall, "H", "")
str_S = Replace(str_S, "A", "")
str_S = Replace(str_S...