    Debug.Assert "Unexpected Error" = ""
   
   End Select
   
   
   Err.Raise lErrNum, App.EXEName &amp; "." &amp; sSource, sDesc
End Sub

Public Sub SetVariant(vToSet As Variant, vSetWith As Variant)
   If IsMissing(vSetWith) Then
      Set vToSet = Nothing
   ElseIf IsObject(vSetWith) Then
      Set vToSet = vSetWith
   Else
      vToSet = vSetWith
   End If
End Sub
</pre><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p></td><td class="rightbar" valign="top" bgcolor="#C2BEB1