saving an image from the web to a local path and returning a stream

gistfile1.bas

Public Shared Function GetExternalImage(ByVal url As String) As IO.Stream
	Dim parts As String() = url.Split("."c)
	Dim ext As String = parts(parts.Length - 1)
	Dim path As String = HttpContext.Current.Server.MapPath("~/App_Data/rss/photogallery/")
	If Not Directory.Exists(path) Then
		Directory.CreateDirectory(path)
	End If
	Dim stream As IO.Stream = Nothing
	If File.Exists(cacheFilePath) Then
		stream = File.OpenRead(cacheFilePath)
	Else
		Try
			Dim httpWebRequest As HttpWebRequest = WebAccess.GetWebRequest(url, True, True)
			Dim httpWebResponse As HttpWebResponse = WebAccess.GetWebResponse(httpWebRequest)

			If httpWebResponse IsNot Nothing AndAlso httpWebResponse.StatusCode <> HttpStatusCode.NotFound Then
				stream = httpWebResponse.GetResponseStream()
				Dim r As New BinaryReader(stream)
				File.WriteAllBytes(cacheFilePath, r.ReadBytes(stream.Length))
				stream = File.OpenRead(cacheFilePath)
			End If
		Catch ex As Exception
			EventRecorder.WriteToEventViewer(ex.Message)
		End Try
	End If

	Return stream
End Function