Как вернуть совпадение регулярного выражения без букв

Question

У меня есть следующий код

Function simpleCellRegex(Myrange As Range) As String
    Set regEx = CreateObject("VBScript.RegExp")
    'Dim regEx As New RegExp
    Dim strPattern As String
    Dim strInput As String
    Dim strReplace As String
    Dim strOutput As String

    strPattern = "_[a-zA-Z][0-9]"

       If strPattern <> "" Then
        strInput = Myrange.Value
        strReplace = "_"

        With regEx
            .Global = True
            .MultiLine = True
            .IgnoreCase = False
            .Pattern = strPattern
        End With

        If regEx.test(strInput) Then
            simpleCellRegex = regEx.Replace(strInput, strReplace)
        Else
            simpleCellRegex = "Not matched"
        End If
    End If
End Function

Прямо сейчас переменная strReplace жестко запрограммирована. Есть ли способ заменить совпавшую подстроку такой же подстрокой без букв? Ie.,

Если входное значение равно

"bs_oper36_a01"

Я хотел бы вывести "bs_oper36_01". Однако последние несколько символов могут измениться, поэтому возможно ли сделать вывод динамическим c, ie., Если ввод изменится?