Excel caixa de texto MsgBox para leitura de dados inseridos na caixa InputBox

[riberex00]

Olá pessoal, como utilizar a caixa de texto MsgBox para leitura de dados inseridos na caixa InputBox? Por exemplo num módulo VBA que mostra se o aluno foi aprovado, em recuperação ou reprovado. Quando eu atribuo valores para n1 e n2 o programa funciona bem, porém eu gostaria que o usuário atribuísse os valores. Então, eu preciso de criar uma instrução InputBox, conforme abaixo e uma instrução MsgBox para ler a nota digitada pelo usuário. Já tentei várias soluções, mas, sem sucesso. Obrigado.

 

Sub nota_aluno()
    Dim n1, n2, med As Double
    InputBox ("Digite a 1ª Nota")
    MsgBox ?????

    InputBox ("Digite a 2ª Nota")
    MsgBox ?????
    med = (n1 + n2) / 2
    MsgBox "A média do aluno = " & med
    If med >= 7 Then
        MsgBox "aluno aprovado"
    ElseIf (med < 7) And (med >= 6) Then
        MsgBox "aluno em recuperação"
    Else
        MsgBox "aluno reprovado"
    End If
End Sub

[Midori]

@riberex00 Atribua o Inputbox a essas variáveis,

 

 Sub nota_aluno()
    Dim n1, n2, med As Double
    
    n1 = Val(InputBox("Digite a 1ª Nota"))
    n2 = Val(InputBox("Digite a 2ª Nota"))
    med = (n1 + n2) / 2
    
    MsgBox "A média do aluno = " & med
    If med >= 7 Then
        MsgBox "aluno aprovado"
    ElseIf (med < 7) And (med >= 6) Then
        MsgBox "aluno em recuperação"
    Else
        MsgBox "aluno reprovado"
    End If
End Sub

 

[riberex00]

@Midori Excelente. Deu certo. Obrigado pela ajuda.