Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine(getHypotenuse(2,4))

    End Sub 

    Private Function getHypotenuse(ByVal num1 As Single, ByVal num2 As Single) As Single 

        Dim result As Single 

        result = Math.Sqrt(num1 ^ 2 + num2 ^ 2) 

        Return result

    End Function 

End Module