วนลูปเช็คได้ไหมครับ (จริงๆ น่าจะมีวิธีทีดีและเร็วกว่านี้ แต่ตอนนี้ยังคิดไม่ออก)

จากโค้ดเดิม
    Else
        txSumDay = DateDiff("d", CDate(txStartDate), CDate(txStopDate), vbSunday, vbFirstJan1) + 1
    End If
End Sub

ก็ให้ดัดแปลงวนลูปเช็ควันไปด้วย
    Else
      txSumDay=0
        for i =CDate(txStartDate) to CDate(txStopDate)
           if weekday(i,vbMonday) < 6 then txsumday=txsumday+1
        next
    End If
End Sub