How do I cange text box color on click

[Dark0Prince]

I'd like to toggle through 3 colors red yellow and green. On click I'd like to be able to change the color of a text box to these colors. I'm up for ideas so far I've been able only to change the color of a text box based on a formula or the color of the cell with a click, but the cells are too big.

 

[Dark0Prince]

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.BackColor = RGB(255, 255, 255) Then
TextBox1.BackColor = vbRed
End If
If TextBox1.BackColor = vbRed Then
TextBox1.BackColor = vbBlue
End If
If TextBox1.BackColor = vbBlue Then
TextBox1.BackColor = vbYellow
End If
If TextBox1.BackColor = vbYellow Then
TextBox1.BackColor = RGB(255, 255, 255)
End If

End Sub

This is what I wrote so far, but no luck it just gets to white then stops.

 

[Fluff]

If the textbox is on a userform try

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
   If TextBox1.BackColor = -2147483643 Then
      TextBox1.BackColor = vbRed
   ElseIf TextBox1.BackColor = vbRed Then
      TextBox1.BackColor = vbBlue
   ElseIf TextBox1.BackColor = vbBlue Then
      TextBox1.BackColor = vbYellow
   ElseIf TextBox1.BackColor = vbYellow Then
      TextBox1.BackColor = -2147483643
   End If
End Sub

 

[Dark0Prince]

Perfect, I needed elseIF!