vb.net - VB DateAdd to String

Question

DateAdd 関数を文字列として取得しようとしています

これまでのところ私は得た

Dim newDate 
newDate = DateAdd("m", 1, date)
MsgBox(newDate.ToString("d"))

必要なエラーオブジェクトを取得する

日付を取得して 1 か月を追加し、アクティブなテキスト レイヤーに書き込む Photoshop スクリプトを作成しようとしています。

'Get and Change Expiry Date 
docRef.ActiveLayer = docRef.Layers(3)
Set textItemRef = docRef.ActiveLayer.TextItem

Dim newDate 
newDate = DateAdd("m", 1, date)
textItemRef.Contents = newDate.ToString("d")

どんな助けでも素晴らしいでしょう