Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _ Long ' Get the current state of the NumLock key Function GetNumLockKey() As Boolean GetNumLockKey = GetKeyState(vbKeyNumlock) End Function