Пересобрать массив строк заново, производя над ним определённые операции - Visual Basic .NET

Формулировка задачи:

Всем здравствуйте. Есть массив строк. Среди элементов этого массива встречаются пустые строки (или например строки, начинающиеся с символа 'A'). Необходимо, если это возможно, то на том же самом месте (не создавая новый), пересобрать массив заново исключив пустые строки, и строки, начинающиеся с символа 'A'. Вот код как пересобрать массив один к одному:

        ListBox1.Items.Clear()
        Dim sArr() As String = {"", "asdf", "qwerty", "11", "", "22", "33", "A-ненужно", "", "", "4567", "ячсм", "zxcv", "A  ,,,", "", ""}
        MsgBox(sArr.Length.ToString)
        'пересобираем массив строк заново, производя над ним определённые операции
        Dim sNewArr() As String = sArr
        For i As Integer = 0 To sArr.GetUpperBound(0)
            sNewArr(i) = sArr(i)
        Next
        MsgBox(sNewArr.Length.ToString)
        'выводим массив строк в листбокс
        ListBox1.Items.AddRange(sNewArr)

Решение задачи: «Пересобрать массив строк заново, производя над ним определённые операции»

textual
                            Листинг программы 
                        
                            array.Where(Function(item) item <> String.Empty AndAlso Not item.StartsWith("A")).ToArray()