主题：如何删除集合内的空值啊

Dim bgz As String = e.Form.Controls("TextBox25").text
Dim bgjh As New List(Of String)
Dim xhs,xhs1 As String
bgjh.AddRange(bgz.Split(chr(10)&chr(13)))
For Each xhs In bgjh
    Dim zljh As New List(Of String)
    zljh.AddRange(xhs.Split("|"))
    zljh.Remove("")
    MessageBox.Show(xhs)
    For Each xhs1 In zljh
        MessageBox.Show(xhs1)
    Next
Next

这节代码运行时会出现一个空的提示窗，应该是集合内有空值，请问怎么删除这个空值啊，删除其它字符都行就是不知怎样删除空值