Data Types VB.Net

Imports System.Globalization
Imports System.Threading
Module Example
   Public Sub Main()
        Dim value As String
        Dim style As NumberStyles
        Dim culture As CultureInfo
        Dim number As Double
        value = "1,222.63"
        style = NumberStyles.Number Or NumberStyles.AllowCurrencySymbol
        culture = CultureInfo.CreateSpecificCulture("en-GB")
        If Double.TryParse(value, style, culture, number) Then
           Console.WriteLine("Converted '{0}' to {1}.", value, number)
        Else
           Console.WriteLine("Unable to convert '{0}'.", value)
        End If    
   End Sub
End Module