Insert texto siempre al principio de un textbox

textbox1.Text = textbox1.Text.Insert(0, "Iniciando captura " & i & Environment.NewLine)

Warning IPHostEntry, GetHostByName is obsoleted

Dim ipv4Addresses As IPAddress() = Array.FindAll(Dns.GetHostEntry(String.Empty).AddressList, Function(a) a.AddressFamily = AddressFamily.InterNetwork)


fuente: https://stackoverflow.com/questions/1059526/get-ipv4-addresses-from-dns-gethostentry

Serialización de una lista de enteros

Imports System.Runtime.Serialization.Formatters.Binary
Imports System.IO
Imports System.Runtime.Serialization

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim lista As New List(Of Integer)
        For i As Integer = 0 To 9
            lista.Add(i + 1)
        Next

        Dim bin As New BinaryFormatter
        Dim mStream As New MemoryStream

        bin.Serialize(mStream, lista)
        lista.Clear() ' Para comprobar que se está serializando
        mStream.Close()


        Try
            Dim ms As Stream = New MemoryStream(mStream.ToArray)
            Dim myList As List(Of Integer) = DirectCast(bin.Deserialize(ms), List(Of Integer))
            For i As Integer = 0 To 9
                MessageBox.Show(myList(i))
            Next
            ms.Close()
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try



End Sub

Transformar una lista de strings a un array de bytes

Dim dataAsBytes As Byte() = email.SelectMany(Function(s) System.Text.Encoding.UTF8.GetBytes(s)).ToArray()

Resetear la columna identidad

--Primero se deben borrar todos los registros 
DELETE FROM buzon_in 
USE [BD] 
DBCC CHECKIDENT ('[buzon_in]',RESEED,0) --buzon_in es el nombre de la tabla