[SK]

    Dim Group As Integer
    Set AG = CreateObject("AutoGRAPH.AutoGRAPHAutomation")
    With AG
    .WaitForInitializing
    'Cells(1, 1) = .GroupsNum
    'XNum = 0
        If .GroupsNum > 0 Then
            For o = 1 To .GroupsNum
                .GroupIndex = o
                'Cells(XNum, 1) = "eiy a?oiiu"
                'Cells(XNum, 2) = .GroupName AG.GroupCarsNum;
                'MsgBox Str(.GroupCarsNum)
                'XGrup = o + XNum
                If .GroupCarsNum > 0 Then
                    'Stroki = 0
                    For zz = 1 To .GroupCarsNum
                        .CarIndex = zz
                        '''.SetGroupIndexByFileName (.GroupFileName)
                        '''.SetCarIndexByDevice (.CarDevice)
                        'For Y = 1 To 50000000
                        'Next Y
                        MsgBox (AG.GroupFileName + "   " + Str(.CarDevice))
                        ddd = AG.WaitForComputing(.GroupFileName, Str(.CarDevice), Str(Date) + " 00:00:00", Str(Date) + " 23:59:59", "GSM", 1)
                    Next zz
                End If
            Next o
        End If
    End With

Или, если почистить код:

    Dim Group As Integer
    Set AG = CreateObject("AutoGRAPH.AutoGRAPHAutomation")
    With AG
    .WaitForInitializing
        If .GroupsNum > 0 Then
            For o = 1 To .GroupsNum
                .GroupIndex = o
                If .GroupCarsNum > 0 Then
                    For zz = 1 To .GroupCarsNum
                        .CarIndex = zz
                        MsgBox (AG.GroupFileName + "   " + Str(AG.CarDevice))
                        ddd = AG.WaitForComputing(.GroupFileName, Str(.CarDevice), Str(Date) + " 00:00:00", Str(Date) + " 23:59:59", "GSM", 1)
                    Next zz
                End If
            Next o
        End If
    End With