Visual Basic.NET - Ayuda visual basic 2010 calculr horas extras y regulares pagadas 1.2

cadahora=10

horastrabajados=40

sitrabajomasde40horas=1.5

saberhorasextras=?

if horastrabajadas>40

saberhorasextras*1.5

end if

dim  vlTotalHorasTrabajadas as integer

dim vlValorHorasExtrasTrabajadas as integer

vlTotalHorasTrabajadas = 0

vlTotalHorasTrabajadas = Cint(txtTotalHorasTrabajadas.text

' Aqui hacemos el calulo normal del valor de las horas, pues esta como base las 40 horas laboradas

'-----------------------------------------------------------------------------------------------------------------------------------------

 vlValorHorasTrabajadas = vlTotalHorasTrabajadas * 10

' En este IF solo el resto de las horas laboradas, por ejemplo el empleado trabajo 45 horas, en el paso anterior

' se calcularon las primeras 40 horas (40*10 = 400), en este condicional solo se tomaran el resto de las horas

' osea las 5 horas restantes (5*1.5 = 7.5) 

'-----------------------------------------------------------------------------------------------------------------------------------------

if (vlTotalHorasTrabajadas >40) then

    vlValorHorasExtrasTrabajadas = (40 - vlTotalHorasTrabajadas) * 1.5

end if

msgbox ("Total de horas trabajadas " & vlTotalHorasTrabajadas & chr(13) & _

                 "Valor de horas trabajadas " & (vlValorHorasTrabajadas + vlValorHorasExtrasTrabajadas)