Sub valores()

valor1= 7
valor2= 9

media valor1,valor2
End Sub

Sub media(nota1, nota2)

media = (nota1 + nota2) / 2

MsgBox media

End Sub

' Error de copilação o argumento não é opcional

Boa tarde,

Segue abaixo com a correção.

Sub valores()

valor1 = 7
valor2 = 9

MsgBox media(valor1, valor2)
End Sub

Function media(nota1, nota2) As Double

media = (nota1 + nota2) / 2

End Function

Waleu Cara Function Perferct!!

Abrç!