Como calcular a média aritmética, ponderada e harmônica em VB.NET - Escreva um programa VB.NET que receba as 3 notas - Exercícios Resolvidos de VB.NET

Primeira nota: 6.7
Segunda nota: 5.4
Terceira nota: 9.5
Informe uma letra [S, P, H]: P
A média do aluno é: 6.87

----------------------------------------------------------------------
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())
    ' variáveis necessárias para resolver o problema
    Dim n1, n2, n3, soma, media As Double
    Dim letra As Char

    ' vamos pedir para o usuário informar as notas
    Console.Write("Primeira nota: ")
    n1 = Double.Parse(Console.ReadLine())
    Console.Write("Segunda nota: ")
    n2 = Double.Parse(Console.ReadLine())
    Console.Write("Terceira nota: ")
    n3 = Double.Parse(Console.ReadLine())

    ' agora vamos pedir uma letra
    Console.Write("Informe uma letra [S, P, H]: ")
    letra = Console.ReadLine()(0)

    ' é media aritmética?
    If letra = "S" Or letra = "s" Then
      soma = n1 + n2 + n3
      media = soma / 3.0
      ' mostra a média
      Console.WriteLine("A média do aluno é: " & media)
      ' é media ponderada?
    ElseIf letra = "P" Or letra = "p" Then
      media = (n1 * (50.0 / 100.0)) + (n2 * (30.0 / 100.0)) +
        (n3 * (20.0 / 100.0))
      ' mostra a média
      Console.WriteLine("A média do aluno é: " & media)
      ' é media harmônica?
    ElseIf letra = "H" Or letra = "h" Then
      soma = (1.0 / n1) + (1.0 / n2) + (1.0 / n3)
      media = 3 / soma
      ' mostra a média
      Console.WriteLine("A média do aluno é: " & media)
    Else
      Console.WriteLine("Letra inválida.")
    End If

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

End Module