Public Function MyFunction(Byval Value as Integer) as integer
 
End Function
 
'---->
 
 
Public Function MyFunction(Byval Value as Integer) as integer
Dim D as IO.FileStream = Nothing
Try
  'TODO: MyFunction(Byval Value as Integer) as integer
 
Catch ex as Exeption
   Debug.WriteLine(ex.Message)
Finally
   If Not D is Nothing Then D.Close
End Try
End Function