ExcelVBA: Inserir declaração de data em duas TextBox

Boa noite pessoal!
Estou com problemas ao inserir a "data inicial" e "data final" a partir de um comando onde consigo incluir somente em uma TextBox. Sim, sou um pouco leigo, porém, já tentei várias alternativas e nenhuma funcionou.
O esboço da planilha que estou tentando executar consta em anexo..
***Em tese: Na mesma userform, irei incluir duas TextBox (data inicial e data final). Ao selecionar o dia no calendário, irá preencher a TextBox1 em seguida (SetFocus) para a TextBox2 onde irei selecionar outra data e assim finalizar. O restante do código já está ajustado, mas somente este detalhe não consegui resolver.

Pelo que notei a parte que preciso alterar são os "ActiveCell" para TextBox1 onde funcionou perfeitamente. Já após isto, não consigo incluir outra data no mesmo formulário na TextBox2...


Private Sub lsClickBotao(ByVal lValor As String, ByVal lBotao As Long)
If lBotao <= 6 And lValor > 20 Then
ActiveCell.Value = CDate(ScrollBar1.Value & "-" & ScrollBar2.Value - 1 & "-" & lValor)
Else
If lBotao >= 28 And lValor < 15 Then
ActiveCell.Value = DateAdd("m", 1, CDate(ScrollBar1.Value & "-" & ScrollBar2.Value & "-" & lValor))
Else
ActiveCell.Value = CDate(ScrollBar1.Value & "-" & ScrollBar2.Value & "-" & lValor)
End If
End If
End Sub

Alguém para me ajudar???