Mise en forme conditionelle VB

Bonjour à tous,

Voici un bout de code vb :



If Not s.Connected Then
FTestport = "Close"
Else
FTestport = "Open"
End If
Else
FTestport = "Host unknown"
End If


End Function




Je souhaiterais intégrer la condition de couleur suivante, si le résultat est Open, que cela s'affiche en vert et en rouge si le réultat est Close.



Sauriez-vous l'aider ?


Par avance merci.