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)