Lỗi tính ngày tháng trong VBA excel

[cuibap32pk]

Dear các anh chị
Giúp em một tay được không ạ.
e có 1 nút nhấn Working Day, khi nhấn hiện ra bảng nhập ngày tháng năm.
Khi nhập zô thì nếu không phải là ngày thì hiện thông báo.
Nếu là ngày thì so sánh nếu ngày tháng nhập trừ đi ngày tháng hiện tại. nếu lớn hơn 7 ngày thì mở sheet 1
nếu = 6 ngày thì mở sheet 2, nếu =5 ngày thì mở sheet 3 ==> tương tự đến =0.
Còn cái vòng tròn đó khi nhấn vào 1 nút nhấn thì mở một file đường dẫn.
Anh chị nào có thể giúp em lập trình được không ạ.


Private Sub CommandButton1_Click()


If Not IsDate(TxtCont.Text) Then
Call MsgBox("Nhap ngay zo deeee )", vbOKOnly)
End If
If Day(TxtCont.Value) > 7 Then
ActiveWorkbook.Sheets(2).Activate


End If
End Sub