The GetFirst method returns the first Message object in the Messages collection. It returns Nothing if no first object exists.
Set objMessage = collMessages.GetFirst( )