skifte farve på textboks i userform

Kan du ikke klare den med conditional formatting???
Format -> Conditional formatting

Koden er placeret i Userformen:

Const rød = &HFF&
Const blå = &HFF8080
Const grøn = &HFF00&

Private Sub UserForm_activate()
Rem test celle A1 på Ark1
    With ActiveWorkbook.Sheets("Ark1")
        a1 = .Range("A1")
        If a1 <> "" Then
            Select Case a1
                Case Is < 0
                    farve = rød
                Case 0
                    farve = blå
                Case Is > 0
                    farve = grøn
            End Select

Rem farvesætning iflg. A1-værdi
            Me.Label1.BackColor = farve
            Me.Label2.BackColor = farve
            Me.Tb1.BackColor = farve
            Me.Tb2.BackColor = farve
        End If
    End With
End Sub

Det var lige det jeg søgte.
Mange tak supertekst

Har du et svar.

Hvor finder jeg egentlig farvekoderne til brug i vba henne, hvis jeg vil ændre lidt i farverne?
Jeg bruger office 2007

Ok - og selv tak. Jeg anvender 2003*).

Hvis man højreklikker på - f.eks. på en af tekstboksene - vælg Properties (egenskaber) og udpeg BackColor - så vil der være adgang til en palet via en knap yderst til højre*)