Private Sub Command1_Click()
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    Set colItems = objWMIService.ExecQuery( _
        "SELECT * FROM Win32_OperatingSystem", , 48)
    For Each objItem In colItems
        sCountryCode = objItem.CountryCode
    Next
 
    language = "49"
    If sCountryCode = language Then
        MsgBox "deutsch"
    Else
        MsgBox "nicht deutsch"
    End If
End Sub