Folge 3 – Unterschied SUB / FUNCTION

Option Explicit
Dim intFlaeche As Integer
Sub main()
    Dim swApp As SldWorks.SldWorks
    Set swApp = Application.SldWorks
    Debug.Print "Vor Zuweisung: " & intFlaeche
    'intFlaeche = flaeche(5)
    flaeche2 6
    Debug.Print "Nach Zuweisung: " & intFlaeche
End Sub
Function flaeche(intSeitenlaenge As Integer)
    flaeche = intSeitenlaenge * intSeitenlaenge
End Function
Sub flaeche2(intSeitenlaenge As Integer)
    intFlaeche = intSeitenlaenge * intSeitenlaenge
End Sub

Option Explicit
Sub main()
    Dim swApp As SldWorks.SldWorks
    solidworks_object swApp
End Sub
Sub solidworks_object(swApp As SldWorks.SldWorks)
    Dim swApp As SldWorks.SldWorks
    Set swApp = Application.SldWorks
End Sub