This can be simply done by using keyboardlayout identifiers. Below is an example:

Private Declare Function GetKeyboardLayoutName Lib "user32" Alias

"GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long

Private Const KL_NAMELENGTH = 9

Property Get IsBritish() As Boolean

Dim sTemp As String

sTemp = String(KL_NAMELENGTH, 0)

Call GetKeyboardLayoutName(sTemp)

If Left$(sTemp, KL_NAMELENGTH - 1) = "00000809" Then IsBritish = True