ник: Explorer
if isnumber - а вообще - перебором посимвольно... на каждай символ с конца проверяешь число ли следующие шесть, включая и текущий.
т.е. for i = 1 to len(srtAddress) step -1
blah-blah-blah
если номер - то подхватываешь и прыгаешь вперед (назад в стринге) сразу на 6 (5?) символов, (i = i + x) если нет проверяешь следующие шесть и т.д.
последние в цикле (первые в стринге) символы точно не индекс - придумай как обработать выход из цикла...