Vorrei che il testo di una textbox che mostra il valore di una Sottrazione fosse:

-rosso se il risultato è positivo
-verde se il risultato è negativo

Private Sub Avanti3_Click()


MultiPage1.page4.Enabled = True
MultiPage1.Value = 3


Dim sottrazione As Double
sottrazione = TextBoxTOT2.Value - TextBoxTOT1.Value


TextBoxDIFF = sottrazione


End Sub


Qualcuno sa come fare? Grazie