Dim F As Integer
Dim LineOfText As String
 
If Dir$(sFile) = "" Then Exit Function
 
    F = FreeFile
    Open sFile For Input As #F
        Do Until EOF(F)
            Line Input #F, LineOfText
            shel ("cmd /c ping " & LineOfText )
        Loop
 
    Close #F

Mit freundlichen Gr??en,
Andy G.