Viết code tính ngày làm có điều kiện

[happy3000]

Tôi có viết đoạn code như sau mà sao chạy không được
Sub tinh_ngay()
Dim ng_nghi As Integer
Dim ng_lam As Integer
Dim tong_ngay As Integer
Dim ng_batdau As Date
Dim ng_ketthuc As Date
ng_batdau = TextBox5.value
tong_ngay = TextBox6.value
ng_ketthuc = DateAdd("d", TextBox6.value, TextBox5.value)
ng_nghi = Application.WorksheetFunction.NetworkDays_Intl(ng_batdau, ng_ketthuc, "0000001")
ng_lam = tong_ngay + ng_nghi
If OptionButton1 = True And Me.TextBox5.value <> "" And Me.TextBox6.value <> "" Then _
Me.TextBox7 = DateAdd("d", TextBox6.value, TextBox5.value)
If OptionButton2 = True And Me.TextBox5.value <> "" And Me.TextBox6.value <> "" Then _
Me.TextBox7 = DateAdd("d", ng_lam, TextBox5.value)
End Sub
không biết sai chỗ nào, mong các bác chỉ giúp chỗ sai và cách sửa, tôi cám ơn nghe

 

[happy3000]

file gửi đính kèm

 

[happy3000]