vb.net 逐行读取RichTextBox内容

Function Fn_ConvertVBCode() As StringBuilder
        Dim tmp As New StringBuilder

        For i As Integer = 0 To RichTextBox1.Lines.Count - 1
            Dim txt As String = Me.RichTextBox1.Lines(i)
            If txt.Contains("""") Then
                txt = txt.Replace("""", """""")
            End If
            tmp.Append("SwFromFileStream.Write(""" & txt & """ + vbCrLf)" + vbCrLf)
        Next

        Return tmp
    End Function