Ejercicio VB.NET: Calcular horas trabajadas y horas extras

A un trabajador le pagan según sus horas trabajadas y la tarifa está a un valor por hora. Si la cantidad de horas trabajadas es mayor a 50 horas, la tarifa por hora se incrementa en un 25% para las horas extras. Calcular el salario del trabajador dadas las horas trabajadas y la tarifa.

Solución:


Module Module1

    Sub Main()
        Dim vhora, vhora2, vhora3, hora, horas1, horas2 As Double

        Console.WriteLine("Ingrese las horas trabajadas")
        horas1 = Console.ReadLine
        Console.WriteLine("Ingrese el valor de una hora de trabajo")
        vhora = Console.ReadLine

        If horas1 <= 50 Then
            Console.WriteLine("El sueldo es de: $" & horas1 * vhora)
        Else
            horas2 = horas1 - 50
            hora = 50 * vhora
            vhora2 = vhora * 125 / 100
            vhora3 = horas2 * vhora2

            Console.WriteLine("El sueldo es de: $" & hora + vhora3)
        End If

        Console.ReadKey()
    End Sub

End Module