Получить число из текста

'Последнее число
Function delcr2000(r As Range)
Dim arr() As String
ReDim arr(200)
For i = 1 To Len(r)
  arr(i) = Mid(r, i, 1)
  If IsNumeric(Mid(r, i, 1)) Then arr(i) = Mid(r, i, 1)
  If Mid(r, i, 1) = " " Then
    delcr2000 = Join(arr(), "")
    Exit Function
  End If
Next i
End Function