IsCapsActive

Option Explicit

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long

Const VK_CAPITAL = &H14

Private Sub Command1_Click()
MsgBox (IIf(GetKeyState(VK_CAPITAL), "Attivo", "non attivo"))
End Sub