Determine if specify query string key exist in specified query string

HasParamQ

' -----------------------------------------
' Determine if specify query string key exist in specified query string
' -----------------------------------------
Function HasParamQ(key, queryString)
	dim result
	result = False

	dim kvs
	kvs = Split(queryString, "&", -1, 1)
	For Each kv in kvs
		dim equalSignPos
		equalSignPos = InStr(1, kv, "=", 1)
		If equalSignPos > 0 Then
			dim keyName
			keyName = Left(kv, equalSignPos - 1)
			If StrComp(key, keyName, 1) = 0 Then
				result = True
				Exit For
			End If
		End If
	Next

	HasParamQ = result
End Function