Faça uma aplicação VBA que calcule o IMC da pessoa. Peso e altura da pessoa devem ser informados.

Sub lista_6()
'6) Faça uma aplicação VBA que calcule o IMC da pessoa. Peso e altura da pessoa devem ser informados.
'Fórmula: peso/(altura * altura)
Dim nome As String
Dim altura As Double
Dim peso As Double
Dim imc As Double

nome = InputBox("Digite seu Nome ")
altura = InputBox("Digite sua Altura")
peso = InputBox("Digite seu Peso")

imc = peso / (altura * altura)

    If (imc >= 20) And (imc <= 25) Then
        MsgBox (nome + Chr(13) + " Seu IMC é : " & imc & Chr(13) + "Peso Ideal")

    ElseIf (imc > 25) Then
        MsgBox (nome + Chr(13) + " IMC é : " & imc & Chr(13) + "Sobre Peso")
 
    Else
        MsgBox (nome + Chr(13) + " IMC é : " & imc & Chr(13) + "Abaixo do Peso")
    End If
End Sub