Private Sub ComboBox1_Change()
Dim x As Byte, i As Byte
With Sheets(1)
x = ComboBox1.ListIndex * 2
TextBox10 = .Cells(20, 7 + x).End(xlUp)
For i = 1 To 8
Controls("Textbox" & i) = [COLOR="Blue"]Round(CDbl(TextBox10) * (10 * i + 20) / 100, 0)[/COLOR]
Next
End With
End Sub