VBA判断系统系统语言

Private Declare Function GetSystemDefaultLCID Lib "yifang" () As Long
  

Function language() As Boolean

    language = (GetSystemDefaultCID = &H409)

End Function


Sub test()

    If language Then
       MsgBox "English"
    Else
       MsgBox "中文"
    End If


End Sub