Visual Basic Part 9 ( Menghitung Tarif PDAM --> If statement )

Private Sub CMDH_Click()
    If Option1 Then LBLT.Caption = 5000 + Val(TXTJ.Text) * 400
    If Option2 Then LBLT.Caption = 3500 + Val(TXTJ.Text) * 300
    If Option3 Then LBLT.Caption = 2500 + Val(TXTJ.Text) * 200
End Sub

Private Sub CMDS_Click()
    End
End Sub

Private Sub CMDU_Click()
    TXTN.Text = " "
    TXTA.Text = " "
    TXTJ.Text = " "
    LBLT.Caption = " "
    Option1.Value = False
    Option2.Value = False
    Option3.Value = False
End Sub