Function ParseValue(inputStr As String, valueStr As String) As String
	
	Dim newStr As String
	Dim startpoint As Integer, endpoint As Integer
	
	startpoint = Instr(1,inputStr,valueStr+"=") + Len(valueStr)+1
	endpoint = Instr(startpoint,inputStr,"&") - startpoint
	newStr = Mid(inputStr,startpoint,endpoint)		
	
	ParseValue = newStr
	
End Function