This is the code!!!

Dim o as integer

For o = 50000 To 74999
If txtSales.Text = o Then
lblBusinessTax. Caption = 1089
End If
Next