Deuzivaldo Souza

Boa tarde amiga veja si e isto que você deseja

 Private Sub btnCalcular_Click(sender As System.Object, e As System.EventArgs) Handles btnCalcular.Click

 Dim sum As Integer = 0
        If chkPizza.Checked = True Then
            If chkMussarela.Checked = True Then
                sum = sum + 22.0
            Else
            End If
            If chkAtum.Checked = True Then
                sum = sum + 25.0
            Else
            End If
            If chkBacon.Checked = True Then
                sum = sum + 25.0
            Else
            End If
            If chkCalabresa.Checked = True Then
                sum = sum + 26.0
            Else
            End If
            Label1.Text = sum
        End If

Desculpe pela amiga eu digitei errado amigo