Help formatting a string of text

[kg1]

How to I format the following string from

The quick brown fox jumps over the lazy dog. The quick brown fox jumps over the lazy dog. The quick brown fox jumps over the lazy dog. The quick brown fox jumps over the lazy dog.

to

The quick brown fox jumps over the lazy dog. The quick brown fox jumps
over the lazy dog. The quick brown fox jumps over the lazy dog. The quick
brown fox jumps over the lazy dog.

so it looks nice and neat and does not scroll off the edge if the ASP.NET (VB) page?

[kg1]

Please, somebody help. I have tried setting the table and row width, I've tried using CSS. Nothing seems to work

[kg1]

<%
        Dim myString As String = "I was walking through the park when I realised I was insane. 'oh my goodness', i said out loud."

        Dim myNewString As New StringBuilder(myString)
        Dim position As Integer = 33
        Dim timesToLoop As Integer = Round(myString.Length / position, 0)
        Dim val As String
 
        For counter As Integer = 0 To timesToLoop - 1
            Do While Not position > myString.Length
                val = myNewString(position)
                If val = " " Then
                    myNewString.Insert(position, "<br />")
                    position += 33
                    Exit Do
                End If
                position += 1
            Loop
        Next
        
        Response.Write(myNewString)
%> 

It works, yippee

[kg1]

Here's another function

Public Function WordWrap(ByVal strTextToBeWrapped As String, ByVal intMaxLineLength As Integer) As String
        Dim wrappedText As String
        Dim lengthOfInput As Integer
        Dim currentPosition As Integer
        Dim currentLineStart As Integer
        Dim positionOfLastSpace As Integer

        lengthOfInput = Len(strTextToBeWrapped)
        currentPosition = 1
        currentLineStart = 1

        Do While currentPosition < lengthOfInput
            If Mid(strTextToBeWrapped, currentPosition, 1) = " " Then
                positionOfLastSpace = currentPosition
            End If

            If currentPosition = currentLineStart + intMaxLineLength Then
                wrappedText = wrappedText & Trim(Mid(strTextToBeWrapped, currentLineStart, positionOfLastSpace - currentLineStart + 1)) & vbCrLf
                currentLineStart = positionOfLastSpace + 1
                Do While Mid(strTextToBeWrapped, currentLineStart, 1) = " "
                    currentLineStart = currentLineStart + 1
                Loop
            End If

            currentPosition = currentPosition + 1
        Loop

        wrappedText = wrappedText & Trim(Mid(strTextToBeWrapped, currentLineStart)) & vbCrLf
        wrappedText = Replace(wrappedText, vbCrLf, "<br />" & vbCrLf)

        Return wrappedText
End Function