The correct string is
Code:
Dim number As String
number = Replace(Textnumber.Value, ",", ".")