Check conexión internet

Public Function coneccionInternet() As Boolean
        Dim resp As Boolean = False
        Dim url As String = "http://clients3.google.com/generate_204"
        Try
            Using client = New WebClient() ' Imports system.net
                Using client.OpenRead(url)
                    'resp = True
                    Return True
                End Using
            End Using
        Catch ex As Exception
        End Try
        Return False
    End Function


fuente

Lista de elementos no repetidos

Dim p As New HashSet(Of Integer)
p.Add()

Declarar array en tiempo de ejecución

Dim array() As Integer = New Integer(9) {}

Cambiar la primera letra de una palabra a mayúscula

Dim mes As String = es.DateTimeFormat.GetMonthName(1)
 mes = Char.ToUpper(mes(0)) & mes.Substring(1)

www1
www2

Obtener el mes en palabras ingresando el número de mes

Dim mes As String = New CultureInfo("es-ES", False).DateTimeFormat.GetMonthName(1)

Obtener el día anterior; fecha

Dim diaAnterior As DateTime = Now.ToString("dd-MM-yyyy")
        diaAnterior = diaAnterior.AddDays(-1)
        MessageBox.Show(diaAnterior.ToString("dd-MM-yyyy"))

Ejemplo 2
Dim diaAnterior As String = (Convert.ToDateTime(Now.ToString("dd-MM-yyyy")).AddDays(-1)).ToString("dd-MM-yyyy")

Ejemplo 3
Dim diaAnterior As String = Now.AddDays(-1).ToString("dd-MM-yyyy")

Ejemplo 4
Dim ayer As String = DateTime.Today.AddDays(-1).ToString("dd-MM-yyyy")

Buscar elemento dentro de un array

Public Function findStrDB(ByVal strConex() As String) As String
        Return Array.Find(strConex, Function(s) s.ToString.Contains("Initial") OrElse _
                                        s.ToString.Contains("Catalog") OrElse _
                                        s.ToString.Contains("initial") OrElse _
                                        s.ToString.Contains("catalog") OrElse _
                                        s.ToString.Contains("INITIAL") OrElse _
                                        s.ToString.Contains("CATALOG"))
    End Function

Obtener ruta de la aplicación y línea de comandos

My.Application.Info.DirectoryPath & "\" & "archivo.xml"

My.Application.CommandLineArgs(0)

Transformar archivo a base64

Dim bytefile As Byte() = Encoding.UTF8.GetBytes(File.ReadAllText(rutaDte))
fileupload = Convert.ToBase64String(bytefile)


fuente

Expresion regular rut

([0-9]+-([0-9]|K)