Visual Basic

Copy Code

 Function convert_wordfelder(ByVal x As String) As String
    Dim s As String
    Dim s1 As String
    Dim i As Integer
    s = x
    i = InStr(s, Chr(13))
    While i > 0
        s = Left(s, i - 1) & "#" & Right(s, Len(s) - (i))
        If Mid(s, i + 1, 1) = Chr(10) Then
            s = Left(s, i) & Right(s, Len(s) - (i + 1))
        End If
        i = InStr(s, Chr(13))
    End While
    i = InStr(s, "#")
    While i > 0
        s = Left(s, i - 1) & Chr(11) & Right(s, Len(s) - (i))
        i = InStr(s, "#")
    End While
    convert_wordfelder = s
 End Function