Puttoing it all together as a function
Option Explicit
Function AddWorkDaysDate(DaysToAdd As Long, StartDate As String) As String
Dim strtDate As Date
Dim TmpEndDate As Date
Dim HDaysCount As Long
Dim HDayList As Range
Dim TDate As Date
Dim Cel As Range
strtDate = CDate(StartDate)
TmpEndDate = DateAdd("d", (DaysToAdd / 5) * 7, strtDate)
Set HDayList = Sheet1.Cells(1)
For Each Cel In HDayList
If CDate(Cel) >= strtDate And CDate(Cel) <= TmpEndDate + HDaysCount Then HDaysCount = HDaysCount + 1
Next
TDate = TmpEndDate
Do While TDate <= TmpEndDate + HDaysCount
'Double check the math logic in this loop
If Weekday(TDate) = 1 Or Weekday(TDate) = 7 Then HDaysCount = HDaysCount + 1
TDate = TDate + 1
Loop
AddWorkDaysDate = Format(TmpEndDate + HDaysCount, "dd - mmm - yyyy")
End Function
The result I got with that function was 17 May, 2017
Sub Test_AddWorkDaysDate()
Dim X
X = AddWorkDaysDate(60, "21-02-2017")
End Sub
You can use this Function with
TextBox2.Text = AddWorkDaysDate(60, TextBox1.Value)