Public Function ConditionUIFormatHTML(ByVal sInput As String) As String
If sInput Is Nothing Then Return "The condition is in Error"
If sInput.Trim = "" Then Return "(Nothing Selected)"
Dim p() As Pair = Nothing
Dim paircount As Integer
'
' GetFormData converts a string in the form: name=value&name=value&name=value
' into pairs for easier processing.
'
GetFormData(sInput, paircount, p)
If paircount < 1 Then Return "(Nothing Selected)"
For i As Integer = 0 To paircount - 1
If p(i).Name = "MyPlugTextBox" Then
Return "You wrote: " & p(i).Value
ElseIf p(i).Name = "2nd Condition Text" Then
Return "You wrote: " & p(i).Value
End If
Next
Return "No Sample Condition"
End Function