Multiline Note from copied text

       Sub Main()
  Dim path As String = "mypath\file.txt"
                Dim i As Integer = 1
                Dim line(i) As String
                Dim objReader As New System.IO.StreamReader(path)
                Do While objReader.Peek() <> -1
                    line(i) = objReader.ReadLine()
                    i = i + 1
                Loop
                objReader.Close()
                Call Drop_Text(line) ' SHOWING ERROR IN THIS LINE
End Sub
 Public Sub Drop_Text(TextToDrop As String())
        Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
        Dim workPart As NXOpen.Part = theSession.Parts.Work
        Dim displayPart As NXOpen.Part = theSession.Parts.Display
 
        Dim nullNXOpen_Annotations_SimpleDraftingAid As NXOpen.Annotations.SimpleDraftingAid = Nothing
        Dim draftingNoteBuilder1 As NXOpen.Annotations.DraftingNoteBuilder = Nothing
 
        draftingNoteBuilder1 = workPart.Annotations.CreateDraftingNoteBuilder(nullNXOpen_Annotations_SimpleDraftingAid)
        draftingNoteBuilder1.Origin.SetInferRelativeToGeometry(True)
        draftingNoteBuilder1.Style.LetteringStyle.GeneralTextSize = 0.1
 
        Dim nullNXOpen_View As NXOpen.View = Nothing
        Dim point1 As NXOpen.Point3d = New NXOpen.Point3d(1, 3.5, 0.0)
        Dim nXObject1 As NXOpen.NXObject = Nothing
 
        draftingNoteBuilder1.Text.TextBlock.SetText(TextToDrop)
        draftingNoteBuilder1.Origin.Origin.SetValue(Nothing, nullNXOpen_View, point1)
        nXObject1 = draftingNoteBuilder1.Commit()
        draftingNoteBuilder1.Destroy()
 
 
 
    End Sub
 
<\code>