File Path VisualBasic Script

Public Sub GetFileNameTest()
  MsgBox GetFileName("C:\text.txt")
End Sub
Function GetFileName(ByVal Path As String) As String
  Dim I As Integer
  
  For I = Len(Path) To 1 Step -1
    If Mid(Path, I, 1) = Application.PathSeparator Or Mid(Path, I, 1) = ":" Then Exit For
  Next I
   
  GetFileName = Right(Path, Len(Path) - I)
End Function