how do you get a checkstatechanged to work in vb?

Question

I have this code but whenever I run it I get the Total VHF.Text as 0

Private Sub Vehicle_Fuel_DriverCheckBox_CheckStateChanged(sender As Object, e As Event Args) Handles Vehicle_Fuel_DriverCheckBox.CheckStateChanged

    TotalVHF.Text = Val(TotalCashEmoluments.Text) * Val(0.125)

End Sub