Отбросить лишние символы из ячеек с данными в цикле - VBA

Формулировка задачи:

Добрый день, Нужна ваша помощь. Вопрос заключается в следующем. В первом столбце А имеются имена файлов К примеру: Ячейка А1:

Refrig_SY405051523_sn6332.227985_02092015

Нужно удалить всё, кроме: Ячейка B1:

SY405051523

Так как таких ячеек более 1000, хочу автоматизировать процесс. Пример прилагается. Попыталась сделать следующее:

Sub ErasingChars()
Dim st&
st=[a1].value
[b1].value=Mid(st,InStr(st,"SY"),InStrRev(st,"SY"))
End Sub

Но такой код работает не на всех ячейках с данными... Прошу совета, как можно извлечь такие данные? Спасибо за ответы, С уважением.

Решение задачи: «Отбросить лишние символы из ячеек с данными в цикле»

textual
                            Листинг программы 
                        

                            Private Sub Test()
    Dim iArr As Variant, i&
    iArr = Range("A1", Cells(Rows.Count, "A").End(xlUp)).Value
    For i = 1 To UBound(iArr)
        iArr(i, 1) = getSY((iArr(i, 1)))
    Next
    Range("B1").Resize(i - 1) = iArr
End Sub
 
Private Function getSY$(text$)
    Dim i1&, i2&
    i1 = InStr(text, "SY")
    If i1 = 0 Then Exit Function
    For i2 = i1 + 2 To Len(text)
        If Not Mid$(text, i2, 1) Like "#" Then Exit For
    Next
    getSY = Mid$(text, i1, i2 - i1)
End Function
                        