Código:
If (Lo que tiene que revisar) = (Lo que tiene que dar) Then
'Valor si Verdadero
Text1.Font = "arial"
Text1.FontItalic = True
Text1.ForeColor = &HC0C0C0 'color gris
Else
'Valor si Falso
Text1.Font = "Times New roman"
Text1.FontItalic = False
Text1.ForeColor = 0 'color Negro
End If
No entendi Bien tu pregunta pero creo que es esto lo que Buscas