Faça uma aplicação VBA para calcular a seguinte expressão, x = a+y-7 no final, mostre o valor de x.

'1) Faça uma aplicação VBA para calcular a seguinte expressão, x = a+y-7 no final,
mostre o valor de x.

Sub lista_1()
Dim a As Integer
Dim y As Integer
Dim x As Integer

Dim mensagem As String
Dim resposta As String

a = CInt(InputBox(" Digite o Valor de A"))
y = CInt(InputBox(" Digite o Valor de Y"))

resposta = (a + y) - 7
mensagem = mensagem & "O Valor de X é : " & resposta

MsgBox mensagem

End Sub