class Test
  Public Erg1 as integer = 0
  Public Erg2 as integer = 0
end class
'----
 
Private Sub Calculate(ByVal Zahl1 as integer, ByVal Zahl2 as integer) as Test
    Erg1 = Zahl1 + Zahl2
    Erg2 = Zahl1 *Zahl2
End Sub
 
dim newErg as test = Calculate(3, 6)
 
MessageBox.Show("Die Zahlen sind: " & newErg.Erg1 & " und " & newErg.Erg2)