Quote Originally Posted by gmayor View Post
Change the function to
Private Function GetNum(sText As String) As String
Dim i As Integer
    For i = 1 To Len(sText)
        If Mid(sText, i, 1) >= "0" And Mid(sText, i, 1) <= "9" Then
            GetNum = GetNum + Mid(sText, i, 1)
        End If
    Next
    If IsNumeric(Mid(sText, Len(sText) - 4, 1)) = False Then
        GetNum = GetNum & Mid(sText, Len(sText) - 4, 1)
    End If
lbl_Exit:
    Exit Function
End Function
Thank you!