Dim str As String, dbl As Double
str = "1,2345"
 
If IsNumeric(str) Then
   dbl = CDbl(str)  '---> 1,2345 als Dezimalbruch
End If
 
str = "1.2345"
If IsNumeric(str) Then
   dbl = CDbl(str) '--> 12345 als Zahl/Dezimalkomma ignoriert
End If
 
str = Replace(str, ".", ",")
dbl = CDbl(str) '--> 1,2345 als Dezimalbruch