Funciones con parámetro de una variable como para metro una variable

Crear una aplicación de VB.NET, para el promedio de tres números ingresados manualmente. crear una función para hacer el promedio y que retorne el resultado.

 Public Class Form2
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TpUNTO.Text = (Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) & "  Puntos")
        Dim funReci As Decimal
        promedio.Text = calcular(funReci)
    End Sub
    Function calcular(ByVal recivir As Decimal)
        recivir = FormatNumber(((Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text)) / 3), 1)
        Return recivir
    End Function
End Class