Object Variable not set aber wo?

So und noch ne Frage. Es soll von einem Anfangsdatum ein Enddatum berechnet werden. (Nur zur Erklärung, ich muss beide Felder variable gestalten, deswegen der Aufwand.) Aber leider klappt das nicht

Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim datestr As Variant
Dim Istime As NotesDateTime
Set db = session.CurrentDatabase
Set uidoc = workspace.CurrentDocument
datestr = Cdat(uidoc.FieldGetText( "DatAusleihe" ))
Msgbox datestr
lstime = Cdat(datestr)
Msgbox Typename(Istime)
Call Istime.AdjustMonth(1)
Msgbox "2"
Call uidoc.fieldsettext( "EndDatum", Istime.LocalTime)

Ich bekomme immer die Fehlermeldung Object Variable not set.

Hat jemand eine Idee?

Datstr bleibt ein Variant obwohl er durch CDat in ein Datum umgewandelt werden soll.
Hat jemand noch eine Idee wie man ein Notesdatetime in ein String umwandeln kann?

Okay, kurze Info zum Problem. Zuerst habe ichs mit @Adjust probiert aber das geht nur bedingt, weil ein Feld mit @Adjust ja nicht mehr bearbeitet werden kann. Deswegen musste ich mir ein Script ausdenken, das es möglich macht jederzeit den berechneten Wert auch manuell ändern zu können.

Jetzt bekomme ich nach der MsgBox datestr immer den Fehler Objekt varibale not set ich habe mit dem Debugger nachgeschaut und festgestellt, dass durch CDat der Datentyp von datestr nicht geändert wird.

Dann bin ich drauf gekommen, dass man den Notesdatetime zu einem String konvertieren muss. Aber ich weiß nicht wie.