Dim sText As String
  Dim sWert As String
  Dim nWert As Long
 
  sText = "Butter 2,33"
  Do Until sText = "" Or Right$(sText, 1) = " "
    If InStr("0123456789", Right$(sText, 1)) > 0 Then
      sWert = Right$(sText, 1) + sWert
    End If
    sText = Left$(sText, Len(sText) - 1)
  Loop
 
  nWert = Val(sWert)