Public Class Tester Public Shared Sub Main Dim doubleParse As Double = Double.Parse("3.1416") Console.WriteLine(doubleParse) End SubEnd Class 3.1416