VbNet 1----Programacion en Consola----Condicion If

hallar el sueldo de un empleado, si este gana mas de 800 soles se la hara un descuento del 19 % caso contrario no se le descontara nada


Module Module1
Sub Main()
Dim ht, cp, sb, des, sn As Double
Console.Write("ingrese horas trabajadas :")
ht = Console.ReadLine
Console.Write("ingrese costo x hora :")
cp = Console.ReadLine
sb = ht * cp
If sb > 800 Then
des = sb * 0.19
Else
des = 0
End If
sn = sb - des
Console.WriteLine("el sueldo bruto es :" & sb)
Console.WriteLine("el descuento es :" & des)
Console.Write("el sueldo neto es :" & sn)
Console.Read()
End Sub
End Module