adding the styles to the renderd data as excel in the browser page using style sheet properties

Private Function AddExcelStyling() As String
Dim sb As StringBuilder = New StringBuilder
sb.Append(("" & vbLf + "" & vbLf))))
sb.Append("" & vbLf)
sb.Append("
'sb.Append("18")
'sb.Append("0")
'sb.Append("")
'sb.Append("")
'sb.Append("3")
'sb.Append("")
'sb.Append("")
'sb.Append("1")
'sb.Append("")
'sb.Append("")
'sb.Append("2")
'sb.Append("")
'sb.Append("")
'sb.Append("0")
'sb.Append("")
'sb.Append("")
'sb.Append("50")
'sb.Append("25")
''
'sb.Append("1")
'sb.Append("1")
sb.Append("" & vbLf)
sb.Append("" & vbLf)
sb.Append("12" & vbLf)
sb.Append("80")
sb.Append("1")
sb.Append("999")
sb.Append("20" & vbLf)
sb.Append("20" & vbLf)
sb.Append("" & vbLf)
sb.Append("" & vbLf)
sb.Append("" & vbLf)
sb.Append("False" & vbLf)
sb.Append("False" & vbLf)
sb.Append("False" & vbLf)
sb.Append("" & vbLf)
sb.Append("" & vbLf)
sb.Append("" & vbLf)
sb.Append("12780" & vbLf)
sb.Append("19035" & vbLf)
sb.Append("0" & vbLf)
sb.Append("15" & vbLf)
sb.Append("False" & vbLf)
sb.Append("False" & vbLf)
sb.Append("" & vbLf)
sb.Append("" & vbLf)
sb.Append("" & vbLf)
sb.Append("" & vbLf)
Return sb.ToString
End Function