Visual Basic.NET - XML en array

Dim bsalida(,) As String

 Dim dato1 As String

Public Enum c0 As Integer

                aplicacion = 2

End Enum

 For Each nodohijo In nodocabecera

            Select Case nodohijo.Name

                Case "Aplicacion"  ' NODO HIJO1 DE NODO CABECERA

                    dato1 = nodohijo.InnerText

Next

 bsalida(fila, c0.aplicacion) = dato1

  Dim num_filas As Integer = bsalida.GetLength(0) - 1

        Dim num_colus As Integer = bsalida.GetLength(1) - 1

        Dim rango As Microsoft.Office.Interop.Excel.Range = xlhoja.Range(xlhoja.Cells(1, 1), xlhoja.Cells(num_filas + 1, num_colus)) ' seleccionamos el rango de celdas,

        With rango '   

            .NumberFormat = "@" ' formato texto, para que no quite ceros a izda

            .Value = bsalida                                               ' le añadimos la matriz completa,

            '.Cells.EntireColumn.AutoFit()                               ' ajustamos el ancho de las columnas,

            '.Interior.Color = Microsoft.Office.Interop.Excel.XlRgbColor.rgbAqua                  ' y le damos un color

            ' ALTO DE LA CELDA -----

            .RowHeight = 15    ' ALTURA DE LAS CELDAS FIJA, PARA QUE AUTOAJUSTE 

        End With

        xlapp.ReferenceStyle = Microsoft.Office.Interop.Excel.XlReferenceStyle.xlR1C1 'xlR1C1