Einzelnen Zeilenumbruch in Textfeld (NICHT Richtext) mit LotusScript auslesen

Leider habe ich über die SuFu hier im Forum nichts hilfreiches gefunden. Aber irgendetwas mache ich bestimmt falsch...

Ich habe hier eine Datenbank, bei der existiert in einem Dokument in einem normalen Textfeld ein einzelner Zeilenumbruch, nicht mehr und nicht weniger.
Ich lese dieses Feld mit

doc.GetItemValue("Source_Field_Name")(0)

in Lotusscript aus und bekomme einen Leerstring im Debugger angezeigt (?!???).
Seltsamerweise wird das Dokument in einer View mit der Selection SELECT @Length(Source_Field_Name) > 0 aber angezeigt, also muss es doch einen Wert haben...

Ich habe eine Funktion gebaut, die bestimmte Zeichen in einem String ersetzt, so auch CrLf (Chr(10) und Chr(13)).
Diese Funkltion habe ich als Beispiel modifiziert und hier eingefügt:

Function ValueCleaner (Source_Value As String) As String
    Dim ValueCleaner_Source ( 0 ) As String
    Dim ValueCleaner_Search ( 7 ) As String
    Dim ValueCleaner_Replace ( 7 ) As String
    Dim ValueCleaner_Destination As Variant


    ValueCleaner_Source ( 0 ) = UCase ( Source_Value )
    ValueCleaner_Search ( 0 ) = Chr(8)
    ValueCleaner_Search ( 1 ) = Chr(9)
    ValueCleaner_Search ( 2 ) = Chr(10)
    ValueCleaner_Search ( 3 ) = Chr(11)
    ValueCleaner_Search ( 4 ) = Chr(12)
    ValueCleaner_Search ( 5 ) = Chr(14)
    ValueCleaner_Search ( 6 ) = Chr(13)
    ValueCleaner_Search ( 7 ) = Chr(15)
    ValueCleaner_Replace ( 0 ) = "[Backspace]"
    ValueCleaner_Replace ( 1 ) = "[Tab]"
    ValueCleaner_Replace ( 2 ) = "[Line Feed Return]"
    ValueCleaner_Replace ( 3 ) = "[Shift+Enter]"
    ValueCleaner_Replace ( 4 ) = "[Page Break]"
    ValueCleaner_Replace ( 5 ) = "[Column Break]"
    ValueCleaner_Replace ( 6 ) = "[Carriage Return]"
    ValueCleaner_Replace ( 7 ) = "[Shift In]"
    ValueCleaner_Destination = Replace(ValueCleaner_Source, ValueCleaner_Search, ValueCleaner_Replace)
    ValueCleaner = ValueCleaner_Destination(0)
End Function

Ändere ich den Feldwert über das UI in der Maske in z.B. "1" & CrLf & "2", also "1", Zeilenumbruch und dann "2" so liefert mir diese Funktion den Wert
"1[Line Feed Return][Carriage Return]2" korrekt zurück, wenn ich den Feldinhalt an diese Funktion übergebe.

Befindet sich in dem Feld aber nur der Zeilenumbruch, so bekomme ich einen Leerstring (wird lt. Debugger auch nur ausgelesen), und nicht wie erwartet "[Line Feed Return][Carriage Return]" zurück.

Ich entwickle mit dem Designer Release 8.5.3FP3

Hat jemand eine Idee wie ich den Feldwert korrekt auslesen muss, damit ich keinen Leerstring erhalte?

Zitat von Diali

mach mal noch einen Fulltrim, vor der Rückgabe des Strings.

Danke für den Tipp, das hilft aber leider auch nichts.
Bereits beim GetItemValue("Source_Field_Name")(0) wird ein Leerstring ausgelesen, sodass

Source_Value = doc.GetItemValue("Source_Field_Name")(0)
If Len(Source_Value) > 0 Then

nicht betreten sondern übersprungen wird.
Schaue ich mir das betreffende Item des doc aber im Debugger an fällt auf, dass es eine VALUELENGTH von 3 hat.
Andere leere Felder in dem Dokument haben eine VALUELENGTH von 2.
Irgendetwas steht da also drin, was beim GetItemValue nicht ausgelesen wird oder ich lese es falsch aus.
Das Item hat auch nur einen Value "[0]" welcher im Debugger als Leerstring angezeigt wird.

Das war leider auch erfolglos.

Dim doc As NotesDocument
Dim docItem As NotesItem
.
.
.
Set docItem = doc.GetFirstItem( Source_Field_Name )
Source_Value = Trim(docItem.Text)
Source_Value_Length = Len(Source_Value)

Source_Value ist immer noch ein Leerstring und
Source_Value_Length ist immer noch 0.

Erst einmal vielen Dank Diali für Deine Hilfeversuche.

Ich habe das eine Dokument, welches mir im Agent deswegen durch die Lappen ging, nun manuell korrigiert.

Zumindest bin ich (bzw. sind wir ;)) nun um eine Erfahrung reicher geworden