Insert this code with the appropriate name changes into the click event
of your button.
Private Sub ToggleButton1_Click()

MsgBox ToggleButton1.Value
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "Hide"
Else
ToggleButton1.Caption = "Display"
End If

End Sub