Option Explicit On
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 Const LOCALE_SCURRENCY = &H14
' Constante para el símbolo monetario 
Private Const LOCALE_USER_DEFAULT = &H400
Private Sub Form_Load()
    Dim sBuffer As String Dim dl As Long ' Area intermedia dónde se cargará la información 
    sBuffer = String$(100, vbNullChar)
    ' La función devolverá la cantidad de caracteres 
    ' cargados en el área intermedia. Cero, en caso 
    ' de error. 
    dl = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SCURRENCY, sBuffer, 100)
    If dl <> 0 Then MsgBox(Left(sBuffer, dl - 1))
End Sub