Toggle Button push issue

Hi everyone, i have this code but why do i have to click on the button twice for it to be pushed? Does the same vise versa.
Thanks for help

Private Sub ToggleButton2_Click()
    If ToggleButton2 = True Then
        ToggleButton2.ForeColor = 255
    ElseIf ToggleButton2.Value = False Then
        ToggleButton2.ForeColor = &H80000012
    End If
    ToggleButton3 = False
End Sub

Private Sub ToggleButton3_Click()
    If ToggleButton3 = True Then
        ToggleButton3.ForeColor = 255
    ElseIf ToggleButton3.Value = False Then
        ToggleButton3.ForeColor = &H80000012
    End If
    ToggleButton2 = False
End Sub