Присвоение гиперссылки файлу с наибольшим значением в последнем символе.

[TiG]

Здравствуйте товарищи!
В экселе 0, а посему обращаюсь к вам!
Есть код для автоматического присвоения содержимому ячейки гиперссылки, на файл с названием содержимого ячейки.

Sub hyperLink()
Const sFolder = "C:\TEMP" 'в качестве константы указывается путь к некой папке.
Dim o, s$
For Each o In Range("A1:G100") 'считываем диапазон ячеек
s = o.Text
If Not Len(o.Text) = 0 Then 'для каждой непустой выполняются операции
With Application.FileSearch
.LookIn = sFolder 'Вышеуказанная папка делается просматриваемой
.SearchSubFolders = True '! Включая подпапки
.FileType = msoFileTypeOfficeFiles 'Имя файла разделяется на собственно имя и тип файла
.Filename = s
If Not .Execute = 0 Then _
ActiveSheet.Hyperlinks.Add Anchor:=o, Address:=.FoundFiles(1) '"кликается" ячейка и происходит собственно поиск адреса файла
End With
End If
Next
End Sub

Проблема заключается в следующем: имеются, к примеру, файлы sputnik_1 и sputnik_2, а в ячейке обозначен, как sputnik. Возможно ли откорректировать код, что б при нажатии на ячейку sputnik вызывался файл sputnik_2, а не sputnik_1. Т.е гиперссылка присваивалась файлу с наибольшим значением в последнем символе?