Dim scancodes1 As Integer() = {&H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H9, _
  &H0, &H0, &H0, &H0, &H0, &H3E, &H0, &H0, &H0, &HE05B, &HE0, &H0, &H0, &HE5C, _
  &HE0, &H0, &H0, &HE02A, &HE0, &H0, &H0, &HE37, &HE0, &H0, &H0, &H54, &H0, _
  &H0, &H0, &H45, &H0, &H0, &H0, &H46, &HE0, &H0, &H0, &HC6, &HE0, &H0, &H0, _
  &H0, &H0}
 
        Dim scancodes As Byte() = ms.ToArray()
 
        Dim rk As RegistryKey = Registry.LocalMachine.OpenSubKey( _
          "SYSTEM\CurrentControlSet\Control\Keyboard Layout", True)
        scancodes = rk.GetValue("Scancode Map")
 
        If scancodes Is Nothing Then
            MsgBox("Schlüssel nicht vorhanden!")
        Else
            If scancodes.GetLength(0) = scancodes1.GetLength(0) Then
                MsgBox("gleich")
            Else
                MsgBox("ungleich")
            End If
        End If