Namen einer Textbox an Funktion übergeben

Public Sub PickDate() 'Aufruf des Tools über eine Schaltfläche
Call DatePick.DatePickinRange(Range("C4"))
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo Recover
If Target.Cells.count = 1 Then
If IsDate(Target.value) Then
SF_DatePick.DatePickinRange Target
Cancel = True
Exit Sub
End If
End If
Recover:
End Sub

Public Sub DatePickinRange(DRange As Range, _
Optional FormatTxT As String = "", _
Optional Language As String = "", _
Optional HolidayLocation As String = "", _
Optional ThreeMonthFlag As Boolean = False)
Dim TVar As Variant, DOut As Variant
TVar = DRange.value
If IsDate(TVar) = True Then
DOut = DatePick(CDate(TVar), FormatTxT, Language, HolidayLocation, ThreeMonthFlag)
Else
DOut = DatePick(Now, FormatTxT, Language, HolidayLocation, ThreeMonthFlag)
End If
If DOut = False Then
'Nothing
ElseIf DRange.value  DOut Then
DRange.value = DOut
End If
Set TVar = Nothing
Set DOut = Nothing
End Sub

Public Sub DatePickinCtl(InputCtl As Control, _
Optional FormatTxT As String = "dd.mm.yyyy", _
Optional Language As String = "", _
Optional HolidayLocation As String = "", _
Optional ThreeMonthFlag As Boolean = False)
Dim TVar As Variant, DOut As Variant
TVar = InputCtl.value
If IsDate(TVar) = True Then
DOut = DatePick(CDate(TVar), FormatTxT, Language, HolidayLocation, ThreeMonthFlag)
Else
DOut = DatePick(Now, FormatTxT, Language, HolidayLocation, ThreeMonthFlag)
End If
If DOut = False Then
'Nothing
ElseIf InputCtl.value  DOut Then
InputCtl.value = DOut
End If
Set TVar = Nothing
Set DOut = Nothing
End Sub