функция: копирование части строки в другую строку

[plasticman]

Добрый день,

у меня стоит задача из строки вида "ааа12345пм" в одной ячейке вырезать "12345пм" и скопировать в другую ячейку.
Сделал функцию

Function invnum(Txt As String) As String

I = 1
a = Mid(Txt, I, 1)
b = Mid(Txt, I, 1)
If char.IsNumber(b) Then outstr = outstr + b

For I = 1 To Len(Txt)
a = Mid(Txt, I, 1)
b = Mid(Txt, I + 1, 1)

If char.IsNumber(b) Then
outstr = outstr + b
End If
If char.IsNumber(b) = False And char.IsNumber(a) Then
outstr = outstr + b
End If

Next I

invnum = outstr

End Function

Когда вызываю ее в книге excel, появляется ошибка значения.

Как запустить debug по функции? И в чем может быть ошибка?

[SAS888]

Я бы применил такую функцию:

Function InvNum(Txt As String) As String
    Dim i As Integer
    For i = 1 To Len(Txt)
        If Asc(Mid(Txt, i, 1)) > 47 And Asc(Mid(Txt, i, 1)) < 58 Then
            InvNum = Right(Txt, Len(Txt) + 1 - i): Exit For
        End If
    Next
End Function