Something

' -- Start Script
Call Main()


' ////////////////////
' Sub Declaration
' ////////////////////

Sub Main()

ShowString(GetCustomer("Z:\companyname\program\source\ptogram.mcx"))
ShowString(GetPartNumber("Z:\companyname\program\source\program.mcx"))

End Sub


Function GetCustomer(strQualifiedPath)

Dim intN

For intN = 4 To Len(strQualifiedPath)
  If Mid(strQualifiedPath,intN,1) = "\" Then  
    Exit For
  Else
   GetCustomer = GetCustomer & Mid(strQualifiedPath,intN,1)
  End If

Next

End Function


Function GetPartNumber(strQualifiedPath)

Dim intN
Dim intCount
Dim strCustomer

strCustomer = GetCustomer(strQualifiedPath)

For intN = 4 To Len(strQualifiedPath)

	If Mid(strQualifiedPath,intN,1) = "\" Then 
	   intCount = intCount + 1
	
		If intCount = 2 Then
			Exit For
		End If
	
	Else
	
		GetPartNumber = GetPartNumber & Mid(strQualifiedPath,intN,1)
	
	End If

Next

GetPartNumber = Replace(GetPartNumber, strCustomer, vbNullString)

End Function