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