Como calcular a área de um losango em VBA - Lista de Exercícios Resolvidos de VBA

Informe a medida da diagonal maior: 5
Informe a medida da diagonal menor: 10
A área (em metros quadrados) do losango é: 25

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

' Macro Excel VBA que calcula a área de um losango
Sub CalcularAreaLosango()
  ' variáveis usadas na resolução do problema
  Dim d_maior As Integer
  Dim d_menor As Integer
  Dim area As Double

  ' vamos ler os valores das diagonais maior e menor
  d_maior = InputBox("Medida da diagonal maior", "Losango", 0)
  d_menor = InputBox("Medida da diagonal menor", "Losango", 0)
  
  ' calcula a area do losango
  area = (d_maior * d_menor) / 2
    
  ' mostra o resultado
  MsgBox "A área (em metros quadrados) é: " & area
End Sub