If it works then that is up to you to decide. But I would not use formatted values or have a string if IF statements. Below is a adaptation of my first reply which does not care or know about how many CheckBox controls are used. This is how I would approach this with what you asked for,
Imports System.ComponentModel
Public Class Form1
Private CheckBoxes As New List(Of CheckBoxCustom)
Private Sub AllCheckBoxs_CheckedChanged(sender As Object, e As EventArgs)
Label1.Text = CheckBoxes.
Where(Function(cb) cb.Checked).
Select(Function(item) item.DecimalValue).
Sum().
ToString("C2")
End Sub
Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
CheckBoxes = Controls.OfType(Of CheckBoxCustom).ToList()
For Each checkBoxCustom As CheckBoxCustom In CheckBoxes
AddHandler checkBoxCustom.CheckedChanged, AddressOf AllCheckBoxs_CheckedChanged
Next
End Sub
End Class
Public Class CheckBoxCustom
Inherits CheckBox
<Category("Behavior"), Description("Decimal value")>
Public Property DecimalValue() As Decimal
End Class