How to get string alone from alphanumeric string in QTP?

str = "Re1234f"

intLen = Len(str)

getstr = ""

For itemCnt = 1 To intLen

char = Mid(str, itemCnt, 1)

If (IsNumeric(char)) Then

Else

getstr = getstr + char

End If

Next

MsgBox getstr

Output :