dijo:

Dim archivo As New FileStream("c:usuario.txt", FileMode.Append)
Dim EscritorArchivo As New StreamWriter(archivo)
Dim reg As String

reg = String.Format("{0};{1}", txtusu.Text, txtpass.Text)
EscritorArchivo.WriteLine(reg)
EscritorArchivo.Close()
archivo.close()
txtusu.Text = ""
txtpass.Text = ""
txtusu.Focus()
listar()

dijo:

Dim archivo As New FileStream("c:usuario.txt", FileMode.Open)
Dim LectorArchivo As New StreamReader(archivo)
Dim VectorRegAux() As String
Dim reg As String
Dim legajo As String
Dim sas As String
Dim linea As String
lst3.Items.Clear()
While Not LectorArchivo.Peek = -1
reg = LectorArchivo.ReadLine()
VectorRegAux = reg.Split(";"c)
legajo = VectorRegAux(0)
sas = VectorRegAux(1)
'If legajo = txt1.Text Then
linea = legajo + vbTab + sas

'reg = String.Format("{0};{1}", txt1.Text, txt2.Text)
'End If
Me.lst3.Items.Add(linea)
End While
LectorArchivo.Close()
archivo.Close()
'File.Delete("D:archivo.txt"
txtusu.Text = ""
txtpass.Text = ""
txtusu.Focus()