BEQUERELS and PICO-CURIE

        ' ------------------------------------------------------------------ calc the CPS
        CPS = CSng(Total_Counts / sec)

        ' ------------------------------------------------------------------ DeadTime correction
        CPS = CorrectForDeadTime(CPS)



    Friend Function CorrectForTubeBkg(ByVal cps As Single) As Single
        Return cps - Tube_Bkg
    End Function

    Friend Function CorrectForDeadTime(ByVal cps As Single) As Single
        Dim k As Single = 1 - cps * 0.000001F * Tube_DeadTime
        If k < 0.05 Then
            k = 0.05
            MaxCountFlag = True
        Else
            MaxCountFlag = False
        End If
        cps = cps / k
        Return cps
    End Function

    Friend Function CalcMicroRoentgens(ByVal cps As Single) As Single
        Return 1000 * (cps - Tube_Bkg) / Tube_Sens
    End Function

    Friend Function CalcMicroSieverts(ByVal uRH As Single) As Single
        Return uRH / 100
    End Function

    Friend Function CalcPicoCurie(ByVal cps As Single) As Single
        Return (cps - Tube_Bkg) * 1000 / (37 * Tube_Sens)
    End Function

    Friend Function CalcBequerels(ByVal cps As Single) As Single
        Return (cps - Tube_Bkg) * 1000 / Tube_Sens
    End Function