GetKeyState

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _
Long
Function GetCapsLockKey() As Boolean
GetCapsLockKey = GetKeyState(vbKeyCapital)
End Function