Probs mit Replizierungsformel in LS

[gfunkus]

Hallo,

Ich habe hier in meinem Anfänger Script anscheinnend ne menge Fehler drinn... könnte mir jemand beim debuggen helfen???
Das Script soll die neue Replizierformel erhalten und damit auch replizieren... tut es aber irgendwie nicht...

Sub Click(Source As Button)
   
'Replication Info
   Dim session   As New NotesSession
   Dim db         As NotesDatabase
   
   Dim rep         As NotesReplication
   Dim re         As NotesReplicationEntry
   Dim test      As Variant
   Dim dest      As String
   Dim sour      As String
   
   Set db   = session.CurrentDatabase
   Set rep   = db.ReplicationInfo
   Set re   = rep.GetEntry("-","-",True)
   
'Messagebox rep.cutoffinterval
   Messagebox "Original Formel: " + re.Formula
   
   newformula   = "@contains(Thorsten)"
   'eval = session.Evaluate("@contains(Thorsten)", doc)
   
   Messagebox "Neue Formel:  " + newformula      
   
   re.Formula   = newformula   
   
   re.IsIncludeFormulas      = True
   re.IsIncludeDocuments   = True
   
   dest   = re.Destination
   sour   = re.Source
   
'Abspeichern
   Call re.Save()
   Call rep.Save()
   Messagebox "Destination:   " + dest
   Messagebox "Source:   " + sour
   Messagebox "gesetzte formel: " +re.Formula
   

   Messagebox "Datenbank wird jetzt repliziert!"
   Call db.Replicate("Dev02*/**/**")
   Messagebox "gesetzte formel: " +re.Formula
End Sub