想将一段文字转化成html文本格式，for语句的逻辑捋不出来了，各位老师帮我看看！

代码如下：

Dim v As String = "表#~第0行|项目|分数|等级|班排名|级部排名|区排名|第0行#~第1行|语文|98|A|7| | |第1行#~第2行|数学|105|A|5| | |第2行#~第3行|英语|84|B| | | |第3行#~第4行|三科|287|A|6|52|856|第4行#"
Dim htm As String
Dim bghtm As String
Dim bhhtm As String
For Each bgh As String In v.Split("~")   \'通过~符号将表格每一行分开
    Dim cls() As String = bgh.split("|")  \'对表格每一行数据的每一列再通过"|"符号分开
    If bgh.Contains("第0行") = True Then  \'如果是表头行
        For n As Integer = 1 To cls.Length-2
            bhhtm = bhhtm + "<th>" + cls(n) + "</th>"
        Next
    Else  \'如果是内容行
        For n As Integer = 1 To cls.Length-2
            bhhtm = bhhtm + "<td>" + cls(n) + "</td>"
        Next
    End If
    bghtm ="<tr>" & bhhtm & "</tr>"
Next
htm ="<Table border = ""1""cellspacing = ""0""><Col width = ""100"">" & bghtm & "</Table>"
Output.Show(htm)