Overtime Calculation?

[Suidae]

Can this routine be done more efficiently? If so how?

Thanks!

Private Sub Command1_Click()
    
    Dim Hours As Double ' Number of Hours Worked
    Dim Th As Double 'OverTime
    Dim Dt As Double 'DoubleTime
    
    Dim Base As Currency 'Employee's Base Hourly Base Rate
    Dim Net As Currency ' Employee's Net Payroll Amount
    
    Hours = Val(txtHours.Text) ' Hours Worked
    Base = 10 ' Employee Hourly Rate
    
 
    If Hours <= 40 Then
        Net = (Hours * Base)
    ElseIf (Hours >= 40.01) And (Hours <= 60) Then
        Th = (Hours - 40)
        Net = (40 * Base) + (Th * Base * 1.5)
    ElseIf Hours >= 60.01 Then
        Dt = (Hours - 40 - 20)
        Net = (40 * Base) + (20 * Base * 1.5) + (Dt * Base * 2)
    End If
    
    txtNet.Text = Net
    
End Sub