[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)

http://i56.tinypic.com/30kx6pz.png

Come posso risolvere?
Grazie