Symantic Parser flags ReDim array(0) as error in VB

Public Class Test
    Public Shared Sub AddStrToArray(ByVal str As String, ByRef array() As String)
        If IsNothing(array) Then
            ReDim array(0) ' red squiggle "( expected"
        Else
            ReDim Preserve array(array.GetUpperBound(0) + 1) ' red squiggle "( expected"
        End If
        array(array.GetUpperBound(0)) = str
    End Sub
End Class