Problema con array

[misancer]

Tengo el siguiente codigo VB.NET 2008

Código vb:

Public ContenidoHtml() As String
    Public Bibliografia() As String
 
Private Sub Crear_Cabecera()
        Dim HtmlTag As Integer = 0
        Dim Linea As String
 
        Linea = ContenidoHtml(HtmlTag)
        While Linea <> "<ol>"
            Linea = ContenidoHtml(HtmlTag)
            ReDim Preserve Bibliografia(Bibliografia.Length + 1)
            Bibliografia(Linea) = Linea
            HtmlTag = HtmlTag + 1
        End While
 
End Sub
 

En teoria deberia de añadir al array Bibliografia las lineas de ContenidoHtml hasta que se encuentre con un tag especifico. Sin embargo me da una nullReferenceException, y no se como arreglarlo. Cualquier idea es bienvenida. Gracias de antemano.