Option Explicit
 
Public Enum Result
    sFileName = 1
    sPath = 2
End Enum
 
Public Function SplitPath(strPath As String, sResult As Result, Divider As _
  String) As String
 
    Dim lngStartPos As Long
    Dim lngEndPos As Long
 
        If sResult = 1 Then
            SplitPath = Mid(strPath, InStrRev(strPath, Divider) + 1)
 
        ElseIf sResult = 2 Then
            SplitPath = Mid(strPath, 1, InStrRev(strPath, Divider))
 
        End If
 
        SplitPath = Replace(SplitPath, Divider & Divider, Divider)
 
End Function

Private Sub Form_Load()
 
    Dim strWholePath As String
    Dim strPath As String
    Dim strFile As String
 
        strWholePath = "C://go.exe"
 
        strPath = SplitPath(strWholePath, sPath, "/")
        strFile = SplitPath(strWholePath, sFileName, "/")
 
End Sub

Mit freundlichen Gr??en,
Andy G.