Outro UserForm text Box com Data

[Zeca1456]

Ola queridos amigos! Vocês podem por favor me ajudar nesta questão?
Eu tenho um UserForm com 3 caixa de texto:
txtFinalDate - txtQuantosDias - txtAtraso:

txtAtraso= txtFinalDate "15/4/2018" + txtQuantosDias "3"
Neste momento, eu tenho uma Sub que mostra essa resposta: txtAtraso= 15/4/20183

Resposta esperada: txtAtraso= 18/4/2018

 

Veja a abaixo o código:

Private Sub txtQuantosDias _Change()

If CDate(txtFinalDate) >= 0 And txtQuantosDias <> "" Then
    txtAtraso.Text = txtFinalDate.Value + txtQuantosDias .Value
    ElseIf txtQuantosDias <> "" Then
        txtAtraso= ""
    End If
            If txtQuantosDias = "" Then
            txtAtraso = ""
            End If

End Sub