Отправка значений на сервер с возможностью проверки на наличие существующих данных

Private Sub CommandButton1_Click()
Dim i As Integer
Dim S As Boolean
Dim L As Boolean
Dim iCount As Integer
Dim suberr As Long
Dim serverName As String
Dim srv As Server
Dim D As Date
Dim xx
 
D = Format(Now, "dd.mm.yyyy" & " 12:00:00")
xx = MsgBox("Внимание! Отправить данные " & D & "?", vbYesNo, "Light26")
If xx = 7 Then: Exit Sub
 
i = 6
iCount = 0
serverName = "skynet"
Set srv = PISDK.Servers(serverName)
Do Until Cells(i, 3) = ""
 
On Error GoTo er
 
S = (Cells(i, 4) <> "")
L = (Cells(i, 5) <> "")
 
If xx = 6 Then:
    If S Then
        srv.PIPoints(CStr(Cells(i, 10))).Data.UpdateValue CStr(Cells(i, 4)), D
    Else
        srv.PIPoints(CStr(Cells(i, 10))).Data.UpdateValue 0, D
    End If
    If L Then
        srv.PIPoints(CStr(Cells(i, 11))).Data.UpdateValue CStr(Cells(i, 5)), D
    Else
        srv.PIPoints(CStr(Cells(i, 11))).Data.UpdateValue 0, D
    End If
    iCount = iCount + 2
    i = i + 1
Loop
 
Dim st As String
If suberr = 1 Then st = "Имеются ошибки при отправке." Else st = ""
MsgBox "Были успешно отправлены " & iCount & " значений. " + st
 
Exit Sub
 
er:
    suberr = 1
    Resume Next
 
End Sub

If xx = 6 Then:
    If S Then
        srv.PIPoints(CStr(Cells(i, 10))).Data.ArcValue (D, auto)
        Sheets ("Новый лист.").sells (i, 2) <> ""
    Else
        srv.PIPoints(CStr(Cells(i, 10))).Data.UpdateValue 0, D
    End If
    If L Then
        srv.PIPoints(CStr(Cells(i, 11))).Data.UpdateValue CStr(Cells(i, 5)), D
    Else
        srv.PIPoints(CStr(Cells(i, 11))).Data.UpdateValue 0, D
    End If
    iCount = iCount + 2
    i = i + 1
Loop