Dim s As String = "3.1412"
        Dim d As Double
 
        System.Threading.Thread.CurrentThread.CurrentCulture = New CultureInfo( _
          "en-US")
 
        d = CDbl(s)
        Debug.WriteLine(d)
        d = Convert.ToDouble(s)
        Debug.WriteLine(d)
        d = Double.Parse(s)
        Debug.WriteLine(d)

        Dim ci As CultureInfo = New CultureInfo("en-US")
 
        d = Convert.ToDouble(s, ci)
        Debug.WriteLine(d)
        d = Double.Parse(s, ci)
        Debug.WriteLine(d)