Parsing URL request params in VB

Following function can be used to parse URL parameters & values from request string.

e.g.

ParseURLRequest(“EMPID=123&NAME=”iKnown&EX=UPDATE”, “NAME”)

returnsiKnown

 

Public Function ParseURLRequest(ByVal requestURL As String, ByVal parseParam As String) As String
  Dim ip As Integer, ip2 As Integer
  Dim modRequestURL As String, sParmVal As String

  sParmVal = ""
  modRequestURL = RTrim$("&" & requestURL) & "&"
  ip = InStr(modRequestURL, parseParam)
  If ip > 0 Then
    ip = ip + Len(parseParam)
    ip2 = InStr(ip, modRequestURL, "&")
    If ip2 = 0 Then
      ip2 = Len(parseParam) + 1
    End If
    If ip2 > ip Then
      sParmVal = Mid$(requestURL, ip, ip2 - ip - 1)
    End If
  End If
  ParseURLRequest = sParmVal
End Function