To find Gross Salary

Option explicit
Dim bsal, gsal, comm

'Aquiring Basic salary
        bsal=inputbox("Enter basic salary")

'finding commision
        If bsal>=30000 Then
         comm=bsal*10/100
        elseif Bsal<30000 and bsal>=15000 then
         comm=bsal*5/100
        else
         comm=200
        End If

'calculating gross sal
gsal=bsal+comm
msgbox(gsal)