[VB 2010] - Chiarimento su problema funzione

[lucausa75]

Salve ragazzi,

ho ceato questa funzione che mi permette di visualizzare in una griglia il contenuto di una directory di un mio ftp:

    Public Function GetFileList(ByVal path As String, ByVal MyList As ListBox) As List(Of String)
        Dim retList = New List(Of String)
        If (path = Nothing Or path = "") Then
            path = "/"
        End If
        _FtpRequest = CType(WebRequest.Create("ftp://" + _Host + path), FtpWebRequest)
        _FtpRequest.Credentials = New NetworkCredential(_UserName, _Password)
        Try
            _FtpRequest.UsePassive = False
        Catch
            MessageBox.Show("Check your firewall configuration")
            Exit Function
        End Try
        _FtpRequest.UsePassive = True
        _FtpRequest.Method = WebRequestMethods.Ftp.ListDirectoryDetails
        _FtpRequest.EnableSsl = _UseSSL
        _FtpRequest.Proxy = Nothing
        _FtpResponse = CType(_FtpRequest.GetResponse(), FtpWebResponse)
        Dim sr As New IO.StreamReader(_FtpRequest.GetResponse().GetResponseStream())
        Dim str As String = sr.ReadLine()
        While Not str Is Nothing
            If Not str.StartsWith(".") Then
                MyList.Items.Add(str)
            End If
            str = sr.ReadLine()
        End While
        sr.Close()
        sr.Dispose()
        sr = Nothing
        _FtpRequest = Nothing
        Return retList
    End Function

Il problema è che VB 2010 mi segnala il problema sotto indicato in corrispondenza della riga di codice "Exit Function" (nel codice sopra indicata in grassetto ed evidenziata in rosso)



Come posso risolvere?
Grazie