Functions Procedure - Display Value Of X / Y And Hypotenuse

I am still working on this. From the main procedure call a function procedure which calculates and returns a value for the "hypotenuse" equal to the square root of (x squared + y squared). You will have to pass the values of x and y to this function procedure. The procedure should calculate and return a double type value. The value that is returned by this function procedure should be equal to the square root of (x squared + y squared). Also from the main procedure call a sub procedure to display the values of x, y, and the hypotenuse.

Here is what I have so far. Now would I declare this in the x or should I have x and y together?
Option Strict On
Option Explicit On
Module Module1
Sub Main()
Dim x As Double = width()
Dim y As Double = height(x)
Console.Read()
[Code] .....