Como calcular a distância entre dois pontos no plano em VB.NET - VB.NET para Geometria Analítica e Álgebra Linear

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' vamos ler os dados do primeiro ponto
    Console.Write("Informe o x do primeiro ponto: ")
    Dim x1 As Double = Double.Parse(Console.ReadLine())
    Console.Write("Informe o y do primeiro ponto: ")
    Dim y1 As Double = Double.Parse(Console.ReadLine())

    ' vamos ler os dados do segundo ponto
    Console.Write("Informe o x do segundo ponto: ")
    Dim x2 As Double = Double.Parse(Console.ReadLine())
    Console.Write("Informe o y do segundo ponto: ")
    Dim y2 As Double = Double.Parse(Console.ReadLine())

    ' vamos obter a distância entre eles
    Dim distancia As Double = Distancia2d(x1, y1, x2, y2)
    Console.Write("Distância entre os dois pontos: " &
      distancia)

    Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub

  ' função que permite calcular a distância
  ' entre dois pontos no plano (R2)
  Function Distancia2d(x1 As Double, y1 As Double,
                       x2 As Double, y2 As Double) As Double
    Dim a As Double = x2 - x1
    Dim b As Double = y2 - y1
    Dim c As Double = Math.Sqrt(Math.Pow(a, 2) + Math.Pow(b, 2))
    Return c
  End Function

End Module