CheckBox

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sum As Double = 0
        If chkDental.Checked Then
            sum += 39.15
        End If
        If chkDental.Checked Then
            sum += 10.81
        End If
        If chkVision.Checked Then
            sum += 2.25
        End If
        If chkMedical.Checked Then
            sum += 55.52
        End If
        txtTotal.Text = sum.ToString("C")

    End Sub
End Class