array trim y elementos no vacíos

Dim str As String = "|1|2|5|7|8|9|122   |0| 9   9|"

Dim array() As String = str.Split("|").Select(Function(w) w.Trim).Where(Function(w) w.Length > 0).ToArray