Detach the file path, file name, and extension from the string

This function separates the path from the string

Function ParsePath (sPathIn As String) As String
　 Dim I As Integer
　 For I = Len(sPathIn) To 1 Step -1
　　 If InStr(":\", Mid$(sPathIn, I, 1)) Then Exit For
　 Next
　 ParsePath = Left$(sPathIn, I)
End Function

This function separates the file name from the string

Function ParseFileName (sFileIn As String) As String
　 Dim I As Integer
　 For I = Len(sFileIn) To 1 Step -1
　　 If InStr("\", Mid$(sFileIn, I, 1)) Then Exit For
　 Next
　 ParseFileName = Mid$(sFileIn, I + 1, Len(sFileIn) - I)
End Function

This function separates the file name extension from the string

Function GetFileExt (sFileName As String) As String
　 Dim P As Integer
　 For P = Len(sFileName) To 1 Step -1
　　 If InStr(".", Mid$(sFileName, P, 1)) Then Exit For
　 Next
　 GetFileExt = Right$(sFileName, Len(sFileName) - P)
End Function