Este c�digo nos muestra como realizar que nuestro Sistema trabaje en cualquier PC con la misma configuraci�n Regional.

Abra un nuevo proyecto, En Proyectos de Visual Basic seleccione la plantilla Aplicaci�n para Windows.

Agregue al Formulario un Texbox, un Label y un Button

Ahora le indicamos que:

	La propiedad del Texbox Text = """

	La propiedad del Label Text ="Introduzca el Monto"

	La propiedad del Button Text  ="Ver"

Ahora nos vamos a la parte de C�digo y en la primera L�nea Colocamos:

Imports System.Globalization

Ahora en el evento Click de Button colocamos el siguiente c�digo:

Dim Cifra As Decimal

Dim MiCultura As CultureInfo

Dim Posicion As Integer

Dim MiFormato As NumberFormatInfo = New CultureInfo(MiCultura.CurrentCulture.ToString(), False).NumberFormat

MiFormato.NumberDecimalSeparator = ","

Cifra = TextBox1.Text

Posicion = InStr(Cifra.ToString("N", MiFormato), MiFormato.NumberDecimalSeparator)

Cifra = Mid(Cifra.ToString, 1, Posicion + MiFormato.NumberDecimalDigits)

MessageBox.Show(Cifra.ToString("N", MiFormato))

Quedar�a de la siguiente forma:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Cifra As Decimal
        Dim MiCultura As CultureInfo
        Dim Posicion As Integer
        Dim MiFormato As NumberFormatInfo = New CultureInfo(MiCultura.CurrentCulture.ToString(), False).NumberFormat
        MiFormato.NumberDecimalSeparator = ","
        Cifra = TextBox1.Text
        Posicion = InStr(Cifra.ToString("N", MiFormato), MiFormato.NumberDecimalSeparator)
        Cifra = Mid(Cifra.ToString, 1, Posicion + MiFormato.NumberDecimalDigits)
        MessageBox.Show(Cifra.ToString("N", MiFormato))
End Sub

Ahora ejecute su aplicaci�n presionando F5.

Fichero con el c�digo de ejemplo, (arConfiguracionRegionalPropia.zip - 23,0 KB)