Web Forms :: Checkboxlist Not Getting Added To Total Price

I have a bunch of radiobuttonlists and one checkboxlist that when selected they are supposed to get added to a price total. All of the radiobuttonlists work correctly in adding to the price but the checkboxlist doesn't get added when one is selected. Here is the code I am using:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
NewPrice.Text = Format(473, "currency")
Dim Proc, Ram, Hd, Cd, Window, Mon As Integer
Dim li As ListItem
Dim sumList As Integer = 0
If processor.SelectedItem Is Nothing Then NewPrice.Text = Format(473 + Proc + Ram + Hd + Cd + Window + Mon + sumList, "currency")
If processor.SelectedItem Is Nothing Then Exit Sub
Proc = processor.SelectedItem.Value
If Memory.SelectedItem Is Nothing Then NewPrice.Text = Format(473 + Proc + Ram + Hd + Cd + Window + Mon + sumList, "currency")
If Memory.SelectedItem Is Nothing Then Exit Sub
Ram = Memory.SelectedItem.Value
If HardDrive.SelectedItem Is Nothing Then NewPrice.Text = Format(473 + Proc + Ram + Hd + Cd + Window + Mon + sumList, "currency")
If HardDrive.SelectedItem Is Nothing Then Exit Sub
Hd = HardDrive.SelectedItem.Value
If CdDrive.SelectedItem Is Nothing Then NewPrice.Text = Format(473 + Proc + Ram + Hd + Cd + Window + Mon + sumList, "currency")
If CdDrive.SelectedItem Is Nothing Then Exit Sub
Cd = CdDrive.SelectedItem.Value
If os.SelectedItem Is Nothing Then NewPrice.Text = Format(473 + Proc + Ram + Hd + Cd + Window + Mon + sumList, "currency")
If os.SelectedItem Is Nothing Then Exit Sub
Window = os.SelectedItem.Value
If Monitor.SelectedItem Is Nothing Then NewPrice.Text = Format(473 + Proc + Ram + Hd + Cd + Window + Mon + sumList, "currency")
If Monitor.SelectedItem Is Nothing Then Exit Sub
Mon = Monitor.SelectedItem.Value
If Storage.SelectedIndex <> -1 Then
For Each li In Storage.Items
If li.Selected Then
sumList += li.Value
End If
Next
End If
NewPrice.Text = Format(473 + Proc + Ram + Hd + Cd + Window + Mon + sumList, "currency")
End Sub