Escreva um programa VB.NET para calcular e imprimir o número de lâmpadas necessárias - Exercícios Resolvidos de VB.NET

Informe a potência da lâmpada (em watts): 100
Informe a largura do cômodo (em metros): 6
Informe o comprimento do cômodo (em metros): 4
Serão necessárias 4 lâmpadas.

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' variáveis usadas na resolução do problema
    Dim potencia_lampada, largura_comodo, comprimento_comodo As Double
    Dim area_comodo, potencia_total As Double
    Dim quant_lampadas As Integer

    ' vamos ler a potência da lâmpada
    Console.Write("Informe a potência da lâmpada (em watts): ")
    potencia_lampada = Double.Parse(Console.ReadLine())

    ' vamos ler a largura do cômodo
    Console.Write("Informe a largura do cômodo (em metros): ")
    largura_comodo = Double.Parse(Console.ReadLine())

    ' agora vamos ler o comprimento do cômodo  
    Console.Write("Informe o comprimento do cômodo (em metros): ")
    comprimento_comodo = Double.Parse(Console.ReadLine())

    ' agora vamos calcular a área do cômodo
    area_comodo = largura_comodo * comprimento_comodo

    ' calculamos a potência total necessária para iluminar
    ' todo o cômodo
    potencia_total = area_comodo * 18

    ' e finalmente calculamos a quantidade de lâmpadas necessárias
    quant_lampadas = Convert.ToInt32(potencia_total / potencia_lampada)

    ' será necessário no mínimo uma lâmpada
    If quant_lampadas = 0 Then
      quant_lampadas = quant_lampadas + 1
    End If

    ' e mostramos o resultado  
    Console.WriteLine("Serão necessárias " & quant_lampadas & " lâmpadas.")

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

End Module