Esta mal, por que estas usando un IF dentro de otro, es decir que si la primer condicion no se cumple, directamente no sigue... Lo logico seria...
Código vb:
Ver originalPrivate 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
end if
If RadioButton2.Checked = True Then
mac = 2000000
end if
If CheckBox1.CheckState = 1 Then
contestador = 300000
end if
If CheckBox2.CheckState = 1 Then
calculadora = 100000
end if
If CheckBox2.CheckState = 1 Then
fotocopiadora = 700000
End If
suma = pc + mac + contestador + calculadora + fotocopiadora
TextBox1.Text = Str(suma)
End Sub