trim array

Dim arreglo() As String = arreglo.Split(c).Select(Function(elem) elem.Trim).ToArray