>>680
なら

If ToggleButton1.Value Then

とか加えておけばいいだけでは?