Data Type VB.Net Tutorial

Imports System.IO
Public Module Test
   Public Sub Main()
      Dim filename As String 
      filename = ExtractFilename("C:\delegate.txt") 
      Console.WriteLine(filename)
   End Sub
   Public Function ExtractFilename(filepath As String) As String
      If filepath.Trim().EndsWith("\") Then Return String.Empty
      Dim position As Integer = filepath.LastIndexOf("\"c)
      If position = -1 Then
         If File.Exists(Environment.CurrentDirectory + Path.DirectorySeparatorChar + filepath) Then
            Return filepath
         Else
            Return String.Empty
         End If
      Else
         If File.Exists(filepath) Then
            Return filepath.Substring(position + 1)
         Else
            Return String.Empty
         End If                     
      End If
   End Function
End Module