<code><font color=green>' Beispiel</font>
Public Type MyDef
  myString As String
  myLong As Long
End Type</code>

<code>Public Function myTest() As MyDef
  With myTest
    .myString = "Test"
    .myLong = 100
  End With
End Function</code>

<code><font color=green>' Form1</font>
Option Explicit
 
Private Type MyDef
  myString As String
  myLong As Long
End Type
 
Private Sub Command1_Click()
  Dim myType As MyDef
  Dim myDLL As New Class1
 
  myType = myDLL.myTest
 
  MsgBox "String=" & myType.myString & vbCrLf & _
    "Long=" & CStr(myType.myLong)
End Sub</code>