Development VB.Net

Imports System
Imports System.Globalization
Imports Microsoft.VisualBasic
Module ToSByteProviderDemo
    Sub ConvertToSByte( numericStr As String,provider As IFormatProvider )
        Dim defaultValue    As Object
        Dim providerValue   As Object
        Try
            defaultValue = Convert.ToSByte( numericStr )
        Catch ex As Exception
            Console.WriteLine( ex )
        End Try
        Try
            providerValue = Convert.ToSByte( numericStr, provider )
        Catch ex As Exception
            Console.WriteLine( ex )
        End Try
        Console.WriteLine( defaultValue )
        Console.WriteLine( providerValue )
    End Sub
    Sub Main( )
        Dim provider  As NumberFormatInfo = new NumberFormatInfo( )
        provider.NegativeSign = "neg "
        provider.PositiveSign = "pos "
        provider.NumberDecimalSeparator = "."
        provider.NumberNegativePattern = 0
        ConvertToSByte( "123", provider )
    End Sub 
End Module