bon voilà mon code
Shell "c:\WINNT\system32\command.com /cping " & RTrim(rText1.Text) & " > c:\romain\ping.txt"
[#ff0e00]j'aimerai mêtre un temps d'arrêt ici pour éviter qu'il ouvre le fichier text alors que la commande ping n'est pas terminer
Open "c:\romain\ping.txt" For Random As #1 Len = Len(carac)
Get #1, 7, carac
Text1.Text = carac.ligne
For i = 1 To 51
If Mid(Text1.Text, i, 1) = "=" Then
If envoyer = "" Then
envoyer = RTrim(Mid(Text1.Text, i + 2, 1))
Else
If reçu = "" Then
 reçu = RTrim(Mid(Text1.Text, i + 2, 1))
Else
perdu = RTrim(Mid(Text1.Text, i + 1, 2))
End If
End If
End If
Next i
Close #1
envoyer = ""
reçu = ""
perdu = ""
End If

j'ai réussi je vais mettre ce que j'ai fait dans un nouveau sujet pour les personnes qui cherchaient comme moi

non, mets le ici plutôt !
Et ton code est moche : il faut utiliser les balises Code et l'indentation...

ok

ca aurait été sympa de mettre ton code quand même s'il te plait

application.wait marque un temps d'arrêt jusqu'à une heure données.
 
Tu peux également passer par des API.
Je te renvoi aux diverses sources dispo sur vbfrance, notemmet celle de Renfield, compatible avec vba.