Function To Remove the Wrap Text in Web Applications

    Private Function removewrap(ByVal strin As String, ByVal charcount As Integer) As String

        Dim i As Integer

        Dim str As Integer

        For i = 0 To strin.Length / charcount

            str = InStr(strin, "<BR />")

            If str <> 0 Then

                strin = strin.Remove(str - 1, 6)

            End If

        Next

        Return strin

    End Function