Function doUnitTest() as Integer
    Dim A As String
    Dim B As Double
    Dim Expected As Double
    A = "222,222"
    ' in da-DK locale ',' is the decimal separator
    Expected = 222.222
    B = Cdbl(A)
    If B <> Expected Then
        doUnitTest = 0
    Else
        doUnitTest = 1
    End If
End Function