Data Types VB.Net

Imports System.Globalization
Imports System.Threading
Module Example
    Public Sub Main()
       Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture("en-US")
       Dim value As String
       Dim styles As NumberStyles
       value = "(4,999.64)"
       styles = NumberStyles.AllowParentheses Or NumberStyles.AllowTrailingSign Or NumberStyles.Float 
       ShowNumericValue(value, styles)
    
    End Sub
    
    Private Sub ShowNumericValue(value As String, styles As NumberStyles)
       Dim number As Double
       Try
          number = Double.Parse(value, styles)
          Console.WriteLine("Converted '{0}' using {1} to {2}.",value, styles.ToString(), number)
       Catch e As FormatException
          Console.WriteLine("Unable to parse '{0}' with styles {1}.",value, styles.ToString())
       End Try
       Console.WriteLine()                           
    End Sub
End Module