دالة ال Function

السلام عليكم اساتذتي الاجلاء

يرجى ابلاغي اين الخطاء في دالة ال Function

 Private Sub readVoterFile()
        Dim start As ThreadStart = Nothing
        'Try
        Me.m_current = 8
        Me.m_panRead(Me.m_current).Visible = True
        Me.m_panRead(Me.m_current).status = 0
        If (start Is Nothing) Then

            start = Function  
            Me.m_data = Nothing
            Me.m_starttime = Environment.TickCount
            Me.m_result = POLKIT.ReadVoterSmartcard(True)
            Me.OutputVoterResult()
    End Function

        End If

    Dim thread As New Thread(start)
        thread.SetApartmentState(ApartmentState.MTA)
        thread.Start()
    'Catch exception As Exception
    '    Throw New Exception(exception.Message)
    'End Try
    End Sub