Como converter Centímetros Cúbicos em Metros Cúbicos 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 centímetros cúbicos
    Console.Write("Informe os centímetros cúbicos: ")
    Dim cent_cubicos As Double = Double.Parse(Console.ReadLine())

    ' agora calculamos os metros cúbicos
    Dim met_cubicos As Double = cent_cubicos / 1000000.0

    ' e mostramos o resultado
    Console.WriteLine("Você informou " & cent_cubicos &
      " centímetros cúbicos.")
    Console.WriteLine("Isso equivale a " & met_cubicos &
      " metros cúbicos.")
    Console.WriteLine("Sem notação científica: " &
      String.Format("{0:F8}", met_cubicos))

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

End Module