array in functie procedure om lijn uit tekstbestand te lezen

Public Function Inlezen(ByVal lijnnummer As Integer) As String
        Dim locatieBestand As String = System.Windows.Forms.Application.StartupPath & "\vermogen.txt"
        Dim TextReader As System.IO.TextReader = New System.IO.StreamReader(locatieBestand) 'Open je textfile in een TextReader

        Dim lijn As Array
        Dim AantalLijnen As Integer
        Dim waarde As Decimal
        Dim f As Integer = FreeFile()

        Do 'While TextReader.Peek <> -1 'Kijk of textreader geen fout returnt
            lijn(AantalLijnen) = TextReader.ReadLine 'Stop de data van een textreader lijn in de Array
            AantalLijnen += 1 'AantalLijnen = AantalLijnen + 1
        Loop Until EOF(f)

        TextReader.Close() 'Sluit de textfile, want je Array is gevuld.

        Dim i As Integer
        waarde = String.Empty

        For i = 0 To lijn.GetUpperBound(0)
            waarde &= lijn(lijnnummer) & vbNewLine
        Next i

        'En print de Array-lijn in je Immediate Window.

        'Maak je Array Leeg als je er niets meer mee doet.
        Return (waarde)

    End Function

Inlezen(4)

    Private Function Inlezen(ByVal lijnnummer As Integer, ByVal path As String) As String
        Dim sr As StreamReader = New StreamReader(path)

        Try
            For i As Integer = 1 To lijnnummer - 1
                sr.ReadLine()
            Next

            Dim correcteLijn As String = sr.ReadLine()

            sr.Close()

            Return correcteLijn
        Catch ex As Exception
            Return Nothing
        End Try        
    End Function

Imports System.IO

Private Function Inlezen(ByVal lijnnummer As Integer, ByVal path As String) As Double
        Dim sr As StreamReader = New StreamReader(path)

        Try
            For i As Integer = 1 To lijnnummer - 1
                sr.ReadLine()
            Next

            Dim correcteLijn As String = sr.ReadLine()

            sr.Close()

            Return Convert.ToDouble(correcteLijn)
        Catch ex As Exception
            Return Nothing
        End Try        
    End Function

Private Sub btnPKnaarKW_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPKnaarKW.Click
        Try
            Dim pkNKw, kwUit As String


            pkNKw = CStr(Val(txtInvoerPKNaarKW.Text))
            kwUit = pkNKw * Inlezen(0)
            txtUitvoerPKNaarKW.Text = kwUit.ToString
        Catch
            MessageBox.Show("Het bestand vermogen.txt is niet gevonden." & vbNewLine & "Plaats het bestand in de debugmap van het programma." & vbNewLine & "(../Vermogen/bin/debug)", "Bestand niet gevonden", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub


Public Function Inlezen(ByRef soort As String) As String
        Dim WaardesInArrays(1) As String

        Dim i As Integer

        WaardesInArrays(0) = "0,7457"   'PK naar KW
        WaardesInArrays(1) = "1,34102"  'KW naar PK

        For i = 0 To WaardesInArrays.GetUpperBound(0)
            Inlezen = CStr(WaardesInArrays(soort))
        Next
        Return Inlezen
    End Function

Private Function Sneltoetsen(ByVal knop As String, ByVal invoer As String, ByVal uitvoer As String, ByVal e As System.Windows.Forms.KeyEventArgs) As String
        If e.KeyCode = Keys.Enter Then 'Als het bepaalde invoervak actief is, en er wordt op enter geduwd, wordt de bewerking uitgevoerd.
            Call [B]knop[/B]_Click(knop, e)
        ElseIf e.KeyCode = Keys.Escape Then 'Als er op escape wordt geduwd, sluit het venster af.
            Call btnSluiten_Click(btnSluiten, e)
        ElseIf e.KeyCode = Keys.Delete Then 'als er op delete geduwd wordt, wordt enkel de invoer en uitvoer van de betreffende omzetting leeggemaakt.
            invoer = String.Empty
            uitvoer = String.Empty
        End If
        Exit Function
    End Function

AddHandler knop.Click, AddressOf knop_click

Private Sub knop_click()
     'hier komt code
End Sub