Hi there

you could use something like this

Private Sub ToggleButton1_Click()

If ToggleButton1.Value = True Then
ToggleButton1.Caption = "On"
Else
ToggleButton1.Caption = "Off"
End If

End Sub

Hope this helps