Dit werkt (bij mij);
Private Function fnConvert2Decimal(ByVal T As String) As Decimal
Dim Value As Decimal = 0
T = Replace(T, "€", "")
T = Replace(T, " ", "")
T = Replace(T, ".", ",")
Value = CDec(T)
Return Value
End Function
en dat kan natuurlijk korter en je kunt vast ook wel iets met Culture en zo, maar die punt moet hoe dan ook eerst een komma worden.