Comment by codeulike

Actual VB6 code sample from Horizon, taken from a code review document from 1998 that became part of the recent inquiry:

    Public Function ReverseSign(d)
    If d < 0 Then
          d = Abs(d)
        Else
          d = d - (d * 2)
        End If
    ReverseSign = d
    End Function

Source: https://www.postofficehorizoninquiry.org.uk/evidence/fuj0008...

See page 17 onwards