Function komma2dot(sstring As String)
Dim retval As String
Dim char As String
For x = 1 To Len(sstring)
char$ = Mid(sstring, x, 1)
If char$ = "," Then
char$ = "."
End If
retval$ = retval$ + char$
Next
komma2dot = retval$
End Function