Object Reference....etc. con un .GetEnumerator

[Viejari]

Hola a todos, tengo el siguiente problema que no he podido solucionar hace más de un mes. Me llegó a las manos una aplicación (que yo no realicé), hecha con clases, sirve para crear examenes con preguntas con alternativas y selección. La plicación a veces funciona bien y otras no, eso me trae muchas dudas con el codigo que para serles franca no entiendo mucho.
En esta parte del codigo se cae y arroja el siguiente error:

oEnumerador = oExamen.Preguntas.GetEnumerator
"Object reference not set to an instance of an object."

oEnumerador es del tipo IDictionaryEnumerator
oExamen es clase:
Public Class clsExamen
Private msIdExamen As String
Private mslPreguntas As New SortedList


Public Property IdExamen() As String
Get
Return msIdExamen
End Get
Set(ByVal Value As String)
msIdExamen = Value
End Set
End Property

Public Property Preguntas() As SortedList
Get
Return mslPreguntas
End Get
Set(ByVal Value As SortedList)
mslPreguntas = Value
End Set
End Property

Public Function AgregarPregunta(ByVal oPregunta As clsPregunta) As Boolean
mslPreguntas.Add(oPregunta.IdPregunta, oPregunta)
End Function


End Class

Se entra en una funcion y se le pasa el oExamen como parámetro:
Private Function CargarExamen(ByVal oExamen As clsExamen) As Boolean

Qué puede estar mal al llamarlo?

Todos los comentarios son bienvenidos, porfis hay algo que no estoy viendo=?.

Gracias muchas.

[Viejari]

Estimados, logré encontrar la causa del error, pero no logro encontrar la solución, aparece este mensaje porque se pierde el valor de la variable, aún cuando la dejo en una variable de sesion, la cual a los 10 minutos se pierde....... y no logro hacer que dure, esto es lo que hay en mi web.config:

<sessionState mode="InProc" stateConnectionString="tcpip=127.0.0.1:42424" sqlConnectionString="data source=127.0.0.1;Trusted_Connection=yes" cookieless="true" timeout="180"/>

Yo supongo que la sesion debiera durar 180 minutos,pero no es así, también intenté haciendolo en el global.asax y tampoco me funciona.....
habrá algo que se me pasó?.

Este es el llamado...

CargarExamen(Session("vwExamen"))

Private Function CargarExamen(ByVal oExamen As clsExamen) As Boolean

try
........

'IDictionaryEnumerator para recorrer las preguntas y las alternativas
Dim oEnumerador As IDictionaryEnumerator

oEnumerador = oExamen.Preguntas.GetEnumerator 'aca se cae..

catch
....
end try

Public Class clsExamen
Private msIdExamen As String
Private mslPreguntas As New SortedList


Public Property IdExamen() As String
Get
Return msIdExamen
End Get
Set(ByVal Value As String)
msIdExamen = Value
End Set
End Property

Public Property Preguntas() As SortedList
Get
Return mslPreguntas
End Get
Set(ByVal Value As SortedList)
mslPreguntas = Value
End Set
End Property

Public Function AgregarPregunta(ByVal oPregunta As clsPregunta) As Boolean
mslPreguntas.Add(oPregunta.IdPregunta, oPregunta)
End Function


End Class





Gracias.