Imports System.Collections.Specialized
Dim searchData = New SearchParameters With {
.Whatever1 = "First Value",
.Whatever2 = "Another Value",
.Whatever3 = "Some more Value",
.Whatever4 = "Last Value"
Dim searchCriteria = HttpUtility.ParseQueryString(String.Empty)
searchCriteria.Add(New NameValueCollection From {
{"Whatever1", searchData.Whatever1},
{"Whatever2", searchData.Whatever2},
{"Whatever3", searchData.Whatever3},
{"Whatever4", searchData.Whatever4}
Console.WriteLine(searchCriteria.ToString())
Public Property Whatever1 As String
Public Property Whatever2 As String
Public Property Whatever3 As String
Public Property Whatever4 As String