Yardım Ping atma

Sub Emre()
    dosya = "C:\ping\log.txt"
    Cells.Clear
    For p = 1 To 3
        Shell "cmd", vbNormalFocus
        Application.Wait Now + TimeSerial(0, 0, 1)
        SendKeys "ping 192.168." & p & ".168 -t > " & dosya & "  + {enter}"
        Application.Wait Now + TimeSerial(0, 0, 4)
        SendKeys "%{F4}"
        Application.Wait Now + TimeSerial(0, 0, 2)
        bağlan = CreateObject("Scripting.FileSystemObject").OpenTextFile(dosya, 1, True).ReadAll
        ayır = Split(bağlan, "Ping statistics")
        For i = LBound(ayır) To UBound(ayır)
            If InStr(1, ayır(i), "for") > 0 Then
                s = InStr(1, ayır(i), "for")
                ip = Mid(ayır(i), s + 4, 13)
                a = a + 1
                Cells(a, c + 1) = ip
                kes = Split(ayır(i), ",")
                For t = LBound(kes) To UBound(kes) - 1
                    c = c + 1
                    Cells(a, c + 1) = kes(t)
                Next t
            End If
            c = Empty
        Next i
    Next p
    Columns("B:B").Replace What:="*Packets", Replacement:="Packets", LookAt:= _
    xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Columns.AutoFit: Rows.AutoFit: Range("E:F").Clear
End Sub