Private Sub Button1_Click()
Dim Variable1 As String
Dim Variable2  As Date
 
    Variable1 = Text1.Text
    Variable2 = Text2.text
 
    call LeereFelder (Variable1, Variable2) 'Da bekomme ich immer einen Fehler
 
End Sub

Private Sub LeereFelder(Variable1 As String, Variable2 As Date)
 
    Text3.text = Variable1 
    Text4.text = Variable2 
 
End Sub