[SOLUCIONADO] VB6: Problema salto de linea

[KenMasters]

tengo las siguientes dos funciones

Código:

Public Sub ExportDBTableToText2(rs As Recordset, TextFile As String)

Dim FieldCount As Integer
Dim i As Integer
Dim tmp As String

Open TextFile For Append As #1

Do Until rs.EOF
    tmp = rs.GetString(adClipString, , "|", "|" & vbCrLf)
    If rs.EOF Then
        tmp = Left$(tmp, Len(tmp) - 1)
    End If

Print #1, tmp
Loop

Close #1

End Sub

y esta otra funcion :

Código:

Public Sub ExportDBTableToText3(rs As Recordset, TextFile As String)
Dim FieldCount As Integer
Dim i As Integer
    Open TextFile For Append As #1
        Print #1, rs.GetString(adClipString, , "|", "|" & vbCrLf)
    Close #1
End Sub

El problema esta que el archivo que genera tiene al final saltos de lineas innecesarios, yo solo deseo que se use salto de linea para separar renglones al final no es necesario ningún salto de linea.. alguna idea ?.. gracias

[KenMasters]

Se soluciono con esta codigo al final

Código vb:

Function sfuncEndVBCRLFremoved(strSource As String, Optional bTrimSource As Boolean = True) As String
On Error GoTo err_h:
 
Dim s As String
Dim iLen As Integer
 
If bTrimSource Then strSource = Trim$(strSource)
 
testPoint:
 
'get last two characters of string
s = Mid$(strSource, Len(strSource) - 1, 2)
 
'len of [strSource]
iLen = Len(strSource)
 
'if last two characters are carriage return and
'line feed then trim off the last 2 characters
If s = vbCrLf Then
         strSource = Mid$(strSource, 1, (iLen - 2))
         GoTo testPoint: 'test last two characters
End If
 
'return with trailing carriage returns removed
sfuncEndVBCRLFremoved = strSource
 
 
Exit Function
err_h:
With Err
     If .Number <> 0 Then
            'create .bas named [ErrHandler]  see http://vb6.info/h764u
            ErrHandler.ReportError Date & ": Str.sfuncEndVBCRLFremoved." & Err.Number & "." & Err.Description
            Resume Next
      End If
End With
End Function