Button im EndlosFormular Pro Zeile Automatisch betätigen

Private Sub Ping_Click()
Dim strTarget, strPingResults, objShell, objExec
On Error Resume Next
strTarget = Me.IPall 'IP address or hostname  
Set objShell = CreateObject("WScript.Shell")  
Set objExec = objShell.Exec("ping -n 1 -w 10 " & strTarget)  
strPingResults = LCase(objExec.StdOut.ReadAll)
If InStr(strPingResults, "Antwort von") > 0 Then  
    'MsgBox ("Geht")  
    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE Ip_adressen SET Status=1 WHERE IPall='" & strTarget & "'"  
    Me.Refresh
Else
    'MsgBox ("Geht nicht")  
    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE Ip_adressen SET Status=0 WHERE IPall='" & strTarget & "'"  
    Me.Refresh
End If

End Sub

@zahlen=("Eins", "Zwei", "Drei", "Vier");  
foreach $i (@zahlen) {
	print "$i\n";  
}

Private Sub Ping_akt_Click()
Dim lstElement
For Each lstElement In Me.IP_Adressen.IP_ID
   MsgBox " & lstElement & "  
Next
End Sub