prova così:
codice:
Option Explicit

Dim premuto As Boolean

Private Sub Command1_Click()
    If Not (premuto) Then
        Command1.Caption = "Premuto"
        premuto = True
    Else
        Command1.Caption = "Non premuto"
        premuto = False
    End If
    
End Sub

Private Sub Form_Load()
    premuto = False
    Command1.Caption = "Non premuto"
End Sub
ciao

Teolo