Option Explicit ' Language identifiers are located at: ' http://msdn.microsoft.com/library/default.asp?url=/library/en-us/intl/nls_61df.asp Private Declare Function VerLanguageName Lib "kernel32" Alias "VerLanguageNameA" (ByVal wLang As Long, ByVal szLang As String, ByVal nSize As Long) As Long Private Sub Form_Paint() Dim Buffer As String ' create a buffer for the text returned by VerLanguageName Buffer = String(255, 0) ' Get language for an ID VerLanguageName 1045, Buffer, Len(Buffer) 'Get the text returned by function. End of text is signaled by a Null character. Buffer = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1) MsgBox Buffer End Sub