Teilerfolg AddDays Infopath 2003 brauche noch Unterstüzung

Hallo

Nach langer Recherche habe ich heraus gefunden, das die AddDay Funktion erst ab Infopath 2007 rockt.
Da man ja das ganze aber via VB implemetieren kann, ist mir ein Teilerfolg gelungen.
MsgBox DateAdd("d", 2, date) gibt genau das aus was ich in etwa suche. Nun würde ich gerne statt auf einer MsgBox das ganze wieder rüberschreiben auf ein feld1 im Infopath2003. Dieser Zuweisung klappt leider nicht Me!feld1 = DateAdd("d", 2, date).

Kann mit bitte jemand beim letzten Schritt helfen? Das wäre super nett, den langsam finde ich keine Blogs mehr im Netz.
Vielen vielen dank schon jedem der mich zum Ziel bringt.

MFG

public function AddDay(d as string, n as long, datum as string)
AddDay = DateAdd(d, n, datum)
end function