min./max. Werte aus Textbox richtig einlesen

Hallo,
habe ein Problem und weiß nicht mehr weiter, alles seltsam :-)
Ich habe 3 Textboxen, Textbox 1, Textbox2, Textbox3, das ganze wird in einer Userform
ausgeführt.
In Textbox 2 wird der Min. Wert 6,5 und in Textbox3 der Max Wert 8,5 eingetragen.
Wenn ich nun in meine Textbox1 einen Wert zwischen 6,5 und 8,5 eingebe soll die Textbox 1 Schrift schwarz bleiben,komme ich unter Min. oder über Max. dann soll meine Textbox1 Schrift rot werden.
Bei den oben genannten Min./Max. Werten (6,5-8,5)klappt alles einwandfrei, sowie bei ca. 20 weiteren Min/Max Werten.
Jetzt kommt es:
Gebe ich als Min. 8,0 und Max: 10,0 ein , spielt der Code verrückt, Eingabe in Textbox1 wird direkt rot geschrieben obwohl sie im Range liegen, usw.
Werte die Problem machen:
Min. Max.
8,0-10,0
20,0-12,0
9,5-12,5
30,0-33,0
7,5-10,5
9,0-12,0
Rest noch nicht bekannt.
Mein Code im Anschluss.
Ich hoffe Ihr könnt mir helfen, ich hab da echt einen Hänger, da es bei vielen Werten geht, nur bei manchen nicht.
Vielen Dank schon mal für die Mühe
Gruß Thorsten

Private Sub TextBox1_Change()
If TextBox1 >= TextBox2 Then
TextBox1.ForeColor = &H80000012
End If
If TextBox1 < TextBox2 Then
TextBox1.ForeColor = &HFF& 'rot
End If
If TextBox1 <= TextBox3 Then
TextBox1.ForeColor = &H80000012
End If
If TextBox1 > TextBox3 Then
TextBox1.ForeColor = &HFF& 'rot
End If
End Sub