How do you return custom data types in LotusScript?

From Greg_Prickril@lotus.com:

Declarations
Class ReturnObj
  Private m_stName As String
  Private m_stType As String
     
  Property Get NameVal As String
    NameVal = m_stName$
  End Property
     
  Property Get TypeVal As String
    TypeVal = m_stType$
  End Property
     
  Sub new( arg_stName$, arg_stType$ )
    m_stName = arg_stName$
    m_stType = arg_stType
  End Sub   
End Class

Function Test() As ReturnObj
  Set Test = New ReturnObj( "Name", "Type" )
End Function

Initialize
  Dim var
  Set var = Test()
  Msgbox( var.NameVal )

Applies to Notes Versions: 4 4.5 4.6 5