Como converter Metros Quadrados em Quilômetros Quadrados em VB.NET - VB.NET para Física e Engenharia

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' vamos ler a medida em metros quadrados
    Console.Write("Informe os metros quadrados: ")
    Dim m_quadrados As Double = Double.Parse(Console.ReadLine())

    ' agora calculamos os quilometros quadrados
    Dim km_quadrados As Double = m_quadrados / 1000000.0

    ' e mostramos o resultado
    Console.WriteLine("Você informou " & m_quadrados &
      " metros quadrados.")
    Console.WriteLine("Isso equivale a " & km_quadrados &
      " quilometros quadrados.")
    Console.WriteLine("Sem notação científica: " &
      String.Format("{0:F8}", km_quadrados))

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

End Module