Pessoal
Acabendo fazendo desta maneira abaixo, caso tenha outra maneira, correta e melhor basta dar um alô.
For Each discreteDefaultVal As ParameterDiscreteValue In Me.crParameterFields(nPos_Tab).CurrentValues
Dim cResultado As String = String.Empty
cResultado = discreteDefaultVal.Value
Next