como cambio la configuracion regional de English(USA) a Español(España)

[JuanRAPerez]

me he estado dando duro tratando de saber como cambiarlo, alguien tiene una idea de como se hace???'

gracias

he probado asi

Declare Function GetNumberFormat Lib "kernel32" Alias "GetNumberFormatA" (ByVal Locale As Long, ByVal dwFlags As Long, ByVal lpValue As String, lpFormat As NUMBERFMT, ByVal lpNumberStr As String, ByVal cchNumber As Long) As Long


Public Const LOCALE_IDEFAULTLANGUAGE = &H9 'codigo de lenguaje por de


Public Const juanra_IDEFAULTLANGUAGE As String = "0409"
ngResu = SetLocaleInfo(LOCAL_DEFAULT, LOCALE_IDEFAULTLANGUAGE, juanra_IDEFAULTLANGUAGE)
If lngResu = 0 Then strError = "Error al setear icountry."