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