¿Cambiar la configuración regional desde VB?

H o l a:

Para cambiar el separador de listas a punto y coma:

Private Declare Function GetLocaleInfo Lib "kernel32" Alias _
    "GetLocaleInfoA" (ByVal Locale As Long, _
    ByVal LCType As Long, ByVal lpLCData As String, _
    ByVal cchData As Long) As Long
Private Declare Function SetLocaleInfo Lib "kernel32" Alias _
    "SetLocaleInfoA" (ByVal Locale As Long, _
    ByVal LCType As Long, ByVal lpLCData As String) As Long
Const LOCALE_USER_DEFAULT = &H400
Sub establecer()
'Cambiar el separador a punto y coma
    dl = SetLocaleInfo(LOCALE_USER_DEFAULT, &HC, ";")
    Dim dx As Long
    Dim sBuffer As String
    sBuffer = String(100, vbNullChar)
    dx = GetLocaleInfo(LOCALE_USER_DEFAULT, &HC, sBuffer, 99)
    If dl <> 0 Then
        MsgBox Trim(sBuffer)
    End If
End Sub

:)
;)