Измените эту строку:
Set tempHighNum = "000"
на следующее:
tempHighNum = "000"
Вы пытаетесь установить переменную tempHighNum в тип строки. Поэтому вам не следует использовать ключевое слово Set . Установить необходимо только при назначении типов объектов переменным.