Eine Zahl in ein Feld schreiben per Notes Skript

    Hi,
    eine bessere überschrift ist mir nicht eingefallen. Ich habe das Problem das ich einen Counter aufbauen möchte. Die Zahl speichere ich auf meine "Einstellungs-Maske" und zähle sie ständig wieder hoch.
    Jetzt habe ich das Problem das er mir jedes mal, auf uidoc, sagt das er Text erwartet.
    Kann mir jemand sagen wie ich das ändere? Oder wie ich "var" in einen Text umforme.



    Dim ws As New NotesUIWorkspace
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim view As NotesView
    Dim doc As NotesDocument
    Dim uidoc As NotesUIDocument

    Set db = session.CurrentDatabase
    Set UIdoc = ws.CurrentDocument

    Set view = db.GetView( "Einstellung" )
    Set doc = view.GetFirstDocument


    If Not(doc Is Nothing) Then
    Messagebox( "hm" )
    var = doc.CounterKategorie(0)
    Call uidoc.FieldSetText("KategorieNr", var)
    Messagebox( var )
    var = var + 1
    Messagebox( var )
    doc.CounterKategorie = var
    Call doc.Save ( True, False )
    End If



    Gruß
    Christian