selectcase

without doing your homework for you.......this is the jist of what is required;

Private Function calcSalary(ByVal salary As Single) As Single
    Dim tax As Single = 0
    Dim output As Single

    Select Case salary
        Case (salary >= 1000)
            tax = 0.1
        Case ((salary > 2000) And (salary < 3000))
            tax = 0.2
        Case Else
            tax = 0.3
    End Select
    'do calc here
    Return output 'answer
End Function