文本框和代码问题

Private Sub ts_AfterUpdate()
Dim ts As String

Dim je As String

'If je = Me.ts Then       这句判断“奖金”=“趟数”是无法出现的，因为奖金为空，

                      趟数已输入数据，所以它们是不会相等的。
'ts = ts(ts, je)          这里是要表达什么看不懂。

ts = Me.ts            此处提取趟数值
Select Case ts

Case Is > 101

je = ts * 50

Case 81 To 100

je = ts * 35

Case 61 To 80
 
 je = ts * 20
 
 Case Else
 
 je = ts * 10

End Select

Me.je = je        将奖金值显示在文本框中
End Sub