สอบถามเรื่อง TextBox Multiline ครับ ตอน output ไม่แสดง newline

Private Sub InitForm()
        Me.txtInput.Text = ""
        Dim dtData As New DataTable
        dtData = getTextOutput() 'get data from db
        Me.txtOutput.Text = dtData.Rows(0).Item(1)
        Me.lblOutput.Text = dtData.Rows(0).Item(1).Replace("\r\n", "<br />")
    End Sub
    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
        Dim strSql As String = ""
        Dim varStr As New ArrayList
        Dim varMsg As String = ""
        strSql = " INSERT INTO [ERC_INTERNAL_CONTROL].[dbo].[tblTest] VALUES ( "
        strSql += "'" & Replace(Me.txtInput.Text, vbNewLine, "<br />") & "' )"
        varStr.Add(strSql)
        If Not clsDB.Make_Trans(varMsg, varStr) Then
            Exit Sub
        End If

        Dim strText As String = "บันทึกรายการสำเร็จ!"
        clsFunction.DisplayAlert(strText, Me)
        Call InitForm()
    End Sub