Public Function GetValue(ByVal sValue As String) As Currency
  Dim nPos1 As Long
  Dim nPos2 As Long
 
  nPos1 = InStr(sValue, " ")
  If nPos1 > 0 Then sValue = Left$(sValue, nPos1 - 1)
 
  ' Tausendertrennzeichen rausnehmen
  nPos1 = InStr(sValue, ".")
  nPos2 = InStr(sValue, ",")
  If nPos1 < nPos2 And nPos1 > 0 Then
    sValue = Replace(sValue, ".", "")
    sValue = Replace(sValue, ",", ".")
  ElseIf nPos1 > nPos2 And nPos2 > 0 Then
    sValue = Replace(sValue, ",", "")
  ElseIf nPos2 > 0 And nPos1 = 0 Then
    sValue = Replace(sValue, ",", ".")
  End If
 
  GetValue = Val(sValue)
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de