Here is a very simple example.
Remember to set the Actual Value in the Test Instance of the Test Set.
Sub Test_Main(Debug, CurrentTestSet, CurrentTSTest, CurrentRun)
If CurrentTSTest.Params.Count > 0 Then
'Output the parameters
Set TSParams = CurrentTSTest.Params
With TSParams
msgbox ''The number of items in the list is '' & .Count
For i = 0 To .Count -1
msgbox ''Parameter name is '' & Trim(.ParamName(i))
msgbox ''Value :'' & Trim(.ParamValue(i))
msgbox ''Type :'' & Trim(.Type(i))
Next
End With
End If
End Sub