Wrap Text in vb.net

[daniel50096230]

I have the following code in my vb.net:

 lbl.Text = lbl.Text & "<table width=""100%"" border=""1"" bordercolor=""#111111"" cellpadding=""0"" cellspacing=""1"" style=""border-collapse: collapse"">"
            lbl.Text = lbl.Text & "<tr>"
lbl.Text = lbl.Text & "<td class=""tableHeader2"" style=""height: 42px; max-width: 4%; text-align: center; FONT-WEIGHT: bold; FONT-SIZE: 8px; COLOR: #000000; FONT-FAMILY: Arial; BACKGROUND-COLOR: #cccccc;"">"
            lbl.Text = lbl.Text & "GRN"
            lbl.Text = lbl.Text & "</td>"
lbl.text=lbl.text & "</tr>"

 lbl.Text = lbl.Text & "<tr>"
                        lbl.Text = lbl.Text & "<td style=""text-align: center;"">" + ShortenDescription(dsDetails.Tables(0).Rows(b).Item("GRNNo").ToString(),5)
                        lbl.Text = lbl.Text & "</td>"
lbl.text=lbl.text & "</tr>"


Public Function ShortenDescription(ByVal str As String, ByVal len As Integer) As String
            If String.IsNullOrEmpty(str) Then
                Return String.Empty
            ElseIf str.Length > len Then
                Return String.Format("{0}...", str.Substring(0, len))
            Else
                Return str
            End If
        End Function

in the GRNNo, there are around 10 character, but I would like to wrap the text after 5 character. However, although I had create a function to make it wrap, but it will display "12345..." rather than wrap the text.Anyone can teach me how to wrap the text?

[HanneSThEGreaT]

Why don't you just add an Enter where you want it to be wrapped ¿

[daniel50096230]

What do you means by add an Enter??

[HanneSThEGreaT]

Use Environment.Newline or vbCrLf in your ShortenDescription function where you cut the text.