Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Empezammos 
        'Declaramos la variable para 
        'la ruta del archivo
        Dim archivo As String
        'Damos el valor a la variable archivo
        archivo = "C:\mymail.txt"
        'Comprob amos que existe
        If My.Computer.FileSystem.FileExists(archivo) Then
            'no hace nada
        Else
            'saltare un mensaje de error 
            'critico en una ventana emergente
            MsgBox("El archivo no ha sido encontrado", MsgBoxStyle.Critical)
        End If
 
        'Declaramos las variable de las cadena de datos
        Dim lector As New System.IO.StreamReader(archivo)
        ' Leer el contenido mientras no se llegue al final
        While lector.Peek() <> -1
            ' Leer una linea del fichero
            Dim s As String = lector.ReadLine()
            ' Si no esta vacia, incluirla al control
            ' Si esta vacia, continuar el bucle
            If String.IsNullOrEmpty(s) Then
                Continue While
            End If
            ListBox1.Items.Add(s)
        End While
        ' Cerrar el fichero
        lector.Close()
    End Sub
 

Textbox1.text=Listbox1.Items.Item(indice)