Private Sub BookNo_Enter()
    
        SendKeys "{CAPSLOCK}", True
        
        Dim bCapsLockState As Boolean
        bCapsLockState = IsCapsLockOn()
        
        If bCapsLockState = False Then
            ToggleCapsLock
        End If

End Sub

Private Sub BookNo_Exit(Cancel As Integer)
    
    If Me.LogCapsLock = -1 Then
        SendKeys "{CAPSLOCK}", True
        
        Dim bCapsLockState As Boolean
        bCapsLockState = IsCapsLockOn()
        
        If bCapsLockState = True Then
            ToggleCapsLock
        End If
    
    End If

End Sub