okay here's my code,

Sub SubComputeArea_Click()
Dim sum As Long
Dim sum1 As Long
Dim sum2 As Long
sum1 = CLng(Text1)
sum2 = CLng(Text2)
sum = (sum1 + sum2)
Text3 = sum
If Text3 <= 61 Then
Text4 = 107.16 * 0.4699
Text5 = 115.64 * 0.4699
Text6 = 107.16 * 0.62
Text7 = 115.64 * 0.62
End If

If Text3 >= 61 Then
Text4 = 124.72 * 0.4699
Text5 = 134.6 * 0.4699
Text6 = 124.72 * 0.62
Text7 = 134.6 * 0.62
End If
End Sub

okay the prob is i have about 7 more >=#'s to put in, how can this be done without making a total mess of this code...please help

thanx in advance

midnightservice