Изменить порядок чередования только цифр в тексте

Выделяется подстрока ABC123D
Выделяются первая часть подстроки ABC, цфровая часть и третья часть D.
Цифры последовательно заносятся в массив и далее из массива формируется строка с цифрами задом-наперед. То есть, массив считывается последовательно не с первого элемента а с последнего.
Объединяются первая часть, новая цифровая часть и третья.

Public Function invertNumericInText(ByVal inText As String) As String
Dim tempText As String, i As Long
tempText = ""
For i = 1 To Len(inText)
    If IsNumeric(Mid(inText, i, 1)) = True Then
        tempText = tempText & Mid(inText, i, 1)
    Else
        If Len(invertNumeric) + Len(tempText) > 0 Then
            invertNumeric = invertNumeric & reverseStr(tempText) & Mid(inText, Len(invertNumeric) + Len(tempText) + 1, 1)
        Else
            invertNumeric = Left(inText, 1)
        End If
        tempText = ""
    End If
Next
End Function
Public Function reverseStr(ByVal tempText As String) As String
Dim temp As String, i As Long
temp = ""
For i = 1 To Len(tempText)
    temp = Mid(tempText, i, 1) & temp
Next
reverseStr = temp
End Function