Select Case ComboBox1.ListIndex
Case 0
TextBox_1 = 1030
TextBox_2 = 270
Case 1
TextBox_1 = 1030
TextBox_2 = 410
Case 2
TextBox_1 = 1330
TextBox_2 = 400
Case 3
TextBox_1 = 1400
TextBox_2 = 470
Case 4
TextBox_1 = 1875
TextBox_2 = 410
Case 5
TextBox_1 = 2200
TextBox_2 = 500
Case 6
TextBox_3 = 485
Case 7
TextBox_3 = 711
Case 8
TextBox_3 = 230
Case 9
TextBox_3 = 362
Case 10
TextBox_3 = 590
End Select