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