Übergabe von Werte in einer VBA Anwendung

Sub Workbook_Open()
Call datenladen(lw, pfad, pfadobjekt)
With Sheets("Formular")
.Activate
End With
msgbox lw ' Ist nur eine Kontrolle. Der in der Subroutine ausgelesene Wert wird auch richtig angezeigt.
End Sub

Sub datenladen(lw, pfad, pfadobjekt As String)
Worksheets("Festlegungen").Activate
lw = Worksheets("Festlegungen").Range("a1")
pfad = Worksheets("Festlegungen").Range("a2")
pfadobjekt = Worksheets("Festlegungen").Range("a3")
End Sub