I believe the problem is caused by trying to combine len(str_H), which is a number, with 'H', a letter.
Perhaps
1) Alter the declarations, so that
Dim str_Final_H as Integer
Dim str_Final_A as Integer
Dim str_Final_L as Integer
become
Dim ll_Final_H as Long
Dim ll_Final_A as Long
Dim...