Sub Honorarios()

Dim horas,precio,extras,pago As Double

extras = 0

horas = Val(InputBox("Introduzca el numero de horas trabajadas:"))
precio = Val(InputBox("Introduzca el precio por hora:"))

if horas > 40 then
	extras = horas - 40
	horas = horas - extras
end if

pago = (horas * precio) + (extras * 2 * precio)

MsgBox("Se deberan pagar " & pago)

End Sub