VB_Detectar_Mayusculas

Private Const CapsLock As Long = &H14
Private Declare Function EstadoDelTeclado Lib "User32" Alias "GetKeyboardState" (kState As Byte) As Long

Private Function BloqMay() As Boolean
    Dim Estado As Long, Teclas(0 To 255) As Byte
    Estado = EstadoDelTeclado(Teclas(0))
    BloqMay = Teclas(CapsLock) = 1
End Function

Sub Como_esta_BloqMay()
    MsgBox "El estado de ""Bloq May"" es: " & _
    IIf(BloqMay, "Activado", "Desactivado")
End Sub