Es algo así:
Public Function Div(ByVal a As Decimal, ByVal b As Decimal) As Decimal
Div = a / b
End Function
Sub Main()
Dim c, d As Integer
Console.Write("Valor 1: ")
c = Console.ReadLine
Console.Write("Valor 2: ")
d = Console.ReadLine
Console.Write("El Resultado es: " & Div(c, d))
Console.ReadLine()
End Sub
Estudiante de Sistemas Informáticos.