codigo visual basic

[coor]

hola a todos

estoy haciendo una pequeña compra interactiva, donde el usuario puede escoger varios items sobre informatica (pcs, mac, fotocopiadoras, entre otros). en algunos casos se escoge por medio de radiobutton, en otras ocasiones se hsce por medio de checkbutton.

quiero al final que al hacer clic en un button se de el total en un textbox que tengo al lado del total de la compra pero no me da ningun resultado al hacer clic sobre este boton

les adjunto el codigo y muchas gracias a quien me pueda ayudar

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim pc As Integer
Dim mac As Integer
Dim contestador As Integer
Dim calculadora As Integer
Dim fotocopiadora As Integer
Dim suma As Integer
If RadioButton1.Checked = True Then
pc = 1000000

If RadioButton2.Checked = True Then
mac = 2000000

If CheckBox1.CheckState = 1 Then
contestador = 300000

If CheckBox2.CheckState = 1 Then
calculadora = 100000

If CheckBox2.CheckState = 1 Then
fotocopiadora = 700000
End If
End If
End If
End If
End If
suma = pc + mac + contestador + calculadora + fotocopiadora
Me.TextBox1.Text = Str(suma)

End Sub