Como calcular o comprimento da hipotenusa em VB.NET dadas as medidas do cateto oposto e do cateto adjascente

Imports System

' Algoritmo VB.NET para calcular o comprimento da hipotenusa
' dadas as medidas do cateto oposto e do cateto adjascente
Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    Dim a As Double = 20 ' medida do cateto oposto
    Dim b As Double = 30 ' medida do cateto adjascente

    ' agora vamos calcular o comprimento da hipotenusa
    Dim c As Double = Math.Sqrt(Math.Pow(a, 2) + Math.Pow(b, 2))