Şartlı silme nasıl yapabiliriz ?

[karzer]

route delete 40.30.1.10
route delete 40.30.1.11
route delete 40.30.1.12
route delete 40.30.1.13
route delete 40.30.1.14

Bunları tek bir döngü ile nasıl silebiliriz ?
Teşekkürler

 

[karzer]

Sub sil()
z = Application.PathSeparator
For i = 1 To 255
Shell "C:" & z & "windows" & z & "system32" & z & "route.exe delete 10.40.30.i", vbNormalFocus
Next i
End Sub

Buna benzer birşey yaptım ama işlemi 255 defa yapıyor i yerine 1-255 rakamlarını girmiyor