Two lines of code look suspicious here. First of all, you're using an empty string (see the red below).
Hold = Replace(Hold, ";", "")
You're supposed to be inserting a blank space because the Split command splits on spaces.
Hold = Replace(Hold, ";", " ")
Secondly, you're supposed to be...