Public Ergebnis As Double
 
Public Sub Addieren(ByVal Wert1 As Double, ByVal Wert2 as Double)
Ergebnis = Wert1 + Wert2
End Sub

Dim Rechnen As New DeineKlasse
 
Private Sub Button1_Click(...)
 
Rechnen.Addieren(1, 2)
MessageBox.Show(Rechnen.Ergebnis)
 
End Sub