Excel VGBgefüllte Zelle grün markieren

Hi,
ich weiß das man eine Zelle auch mit einer Benutzerdefiniertenformatierung formatieren kann - es wird aber unbedingt VGB benötigt.

Ich habe in der Zelle B2 etwas stehen Text / Zahl und wenn dort etwas drinnen steht soll die Zelle grün gefärbt werden
Ich möchte das dann als CommandButton machen, aber die Formel dürfte dort ja sowieso gehen.

Vielen Dank und beste Grüße,
Tobias

With ActiveSheet.Range("B2")  
    If .Value <> "" then  
        .interior.color = vbGreen
    End if
End with