Trợ giúp 1 chút về Code VBS trong WinCC Flexible

[onghaukd01]

Em chào các bác!VBS em dùng vòng lặp Do.... Loop, chương trình tự động xuất ra .csv rồi, nhưng điều kiện của em thế này

"Do
.......
If SmartTags ("SET") = True Then
Dataset = CStr (Now) & " ; " & SmartTags ("Tag_1") & " ; " & SmartTags ("Tag_2")
ts.WriteLine Dataset
ts.Close
End If
.....
Loop "

mỗi lần Tag SET lên 1 thì tự động ghi vào .csv, nhưng nó ghi 1 tràng giang luôn, phải mấy trăm dòng các bác ạ! dung lượng File rất lớn, vậy làm thế nào để nó chỉ ghi 1 lần 1 dòng thôi ạ! có phải chèn thêm đoạn Code nào khác vào đây không các bác?
Em cảm ơn các bác trước