Program to calculate a price of a computer by choosing a company name and hardware required..

Private Sub Check1_Click() If Option1.Value = True Then If Check1.Value = 1 Then Text1.Text = 2000 End If ElseIf Option2.Value = True Then If Check1.Value = 1 Then Text1.Text = 2500 End If ElseIf Option3.Value = True Then If Check1.Value = 1 Then Text1.Text = 1500 End If End If End Sub Private Sub Check2_Click() If Option1.Value = True Then If Check2.Value = 1 Then Text2.Text = 3000 End If ElseIf Option2.Value = True Then If Check2.Value = 1 Then Text2.Text = 3500 End If ElseIf Option3.Value = True Then If Check2.Value = 1 Then Text2.Text = 3600 End If End If End Sub Private Sub Check3_Click() If Option1.Value = True Then If Check3.Value = 1 Then Text3.Text = 1500 End If ElseIf Option2.Value = True Then If Check3.Value = 1 Then Text3.Text = 2000 End If ElseIf Option3.Value = True Then If Check3.Value = 1 Then Text3.Text = 1000 End If End If End Sub Private Sub Check4_Click() If Option1.Value = True Then If Check4.Value = 1 Then Text4.Text = 4000 End If ElseIf Option2.Value = True Then If Check4.Value = 1 Then Text4.Text = 4500 End If ElseIf Option3.Value = True Then If Check4.Value = 1 Then Text4.Text = 5000 End If End If End Sub Private Sub Option1_Click() If Option1.Value = True Then Text5.Text = 24000 End If End Sub Private Sub Option2_Click() If Option2.Value = True Then Text5.Text = 30000 End If End Sub Private Sub Option3_Click() If Option3.Value = True Then Text5.Text = 20000 End If End Sub Private Sub Text6_GotFocus() Text6.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) + Val(Text4.Text) End Sub Private Sub Text7_GotFocus() Text7.Text = Val(Text6.Text) + Val(Text5.Text) End Sub