Dim objFSO As Object,objInputFile As Object
Dim strInputString$,intPos%,intPos1%,strFilePath$
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objInputFile=objFSO.OpenTextFile("C:\input.txt")
Do While Not objInputFile.AtEndOfStream
	strInputString=objInputFile.ReadLine
	If Len(strInputString)> 0  Then
		intPos=InStr( 1 ,strInputString,",")
		If (intPos<Len(strInputString)) Then
			intPos=InStr(intPos+ 1 ,strInputString,",")
			If (intPos<Len(strInputString)) Then
				intPos1=InStr(intPos+ 1 ,strInputString,",")
				If (intPos1<Len(strInputString)) Then
					strFilePath=Mid(strInputString,intPos+ 1 ,intPos1-intPos- 1 )
					MsgBox strFilePath
				End If
			End If
		End If
	End If
Loop
objInputFile.Close
Set objInputFile=Nothing
Set objFSO=Nothing