Функция должна возвратить пользовательский тип данных - VB

Формулировка задачи:

Доброго времени суток, уважаемые
Подскажите пожалуйста как должен быть объявлен тип данных и функция, для того, чтобы функция возвращала данные определенного типа?
Например:

MyType1
    data  
    leng  

  MyFunc1(par1  , par2  )  MyType1
 res  MyType1
    res.data = par1
    res.leng = par2
MyFunc1 = res

  Command1_Click()
 tmp  MyType1
    tmp = MyFunc1(, )
    MsgBox tmp

Собственно - не работает. А очень хотелось бы чтобы работало. Подскажите пожалуйста как сделать так чтобы работало.

Решение задачи: «Функция должна возвратить пользовательский тип данных»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Sub</font> Command1_Click()
<font color="blue">Dim</font> tmp <font color="blue">As</font> MyType1
<font color="blue">Dim</font> obj <font color="blue">as</font> <font color="blue">New</font> <font color="blue">MyClass</font>

    tmp = obj.MyFunc1(<font color="teal">"строка"</font>, <font color="darkblue"><b>8</b></font>)
    MsgBox tmp
<font color="blue">End</font> <font color="blue">Sub</font>
                        