Code:
<FORM>
Private Sub cbodept_Click()
If cbodept.Text = "Faculty" Then
txtgross.Text = "10000"
Else
If cbodept.Text = "Accounting" Then
txtgross.Text = "20000"
Else
If cbodept.Text = "Registrar" Then
txtgross.Text