Eintarg über VBA

Ich möchte, daß Excel eine Formel in Spalte B schreibt, wenn Spalte A gefüllt: d.h. in Zelle A15 steht ein Datum (z.B. 15.06.02 ), jetzt soll automatisch in B15 nur der Monat stehen ( hier: 06 ). Sobald A15 wieder leer ist, soll auch B15 leer sein.

So ungefähr:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 then
Target.Offset(0, 1).Value = (=TEXT(B14;"MM"))
End sub

Problem, ich bekomme die Formel (=TEXT(B14;"MM")) nicht in VBA integriert.

Gruß Andre