I think the issue is on the mins line. That is one line that I didn't check on your provided code and it appears to start from the wrong spot. Change the 4 to 3 eg
Code:
mins = CInt(Mid(aRng.Text, 3, 2))
You can debug these things yourself by stepping through the code and hovering over the variables after the line has executed to see what value they have.