As per your other thread, the mins calculation is starting at the 4th digit instead of the 3rd, so it was deciding that there were 23 minutes because they were the 4th and 5th digits. Change the 4 to a 3
mins = CInt(Mid(aRng.Text, 3, 2))

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia