Um programa que lê um salário e concede um aumento de 20% para os salários inferiores a R$ 800,00 - Exercícios Resolvidos de VB.NET

Informe o salário: 520
O salário informado foi: 520.0
O salário reajustado é: 530.4 

----------------------------------------------------------------------
Precisa de ajuda? Chama no WhatsApp +55 (62) 98553-6711 (Osmar)

Este código foi útil? Paga um cafezinho pra mim :-(
PIX: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' vamos solicitar o salário do funcionário
    Console.Write("Informe o salário: ")
    Dim salario As Double = Double.Parse(Console.ReadLine())
    Console.WriteLine("O salário informado foi: " & salario)

    ' vamos conceder o aumento ao salário inferior a 800,00
    If salario < 800.0 Then
      Dim novo_salario As Double = salario + (salario * (2.0 / 100.0))
      Console.WriteLine("O salário reajustado é: " & novo_salario)
    Else
      Console.WriteLine("Não tem direito ao reajuste.")
    End If

    Console.WriteLine(vbCrLf & vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub

End Module