Dim _listOfSentEntries As List(Of String)
 
        For i = 0 To sendbox.Items.Count - 1
            If (sendbox.Items.Item(i).ToString.StartsWith("sendto")) Then
                _listOfSentEntries.Add(Trim(Mid(cur_senboxentry, 7, 600)))
            End If
        Next
 
        For Each entry As String In _listOfSentEntries
            GO_SEND_COMMAND(entry)
        Next

fg viperbone