esta segunda parte es para los que me pidieron un poco mas de precision:
la primera parte del chat( osea, la de ingresar) es:

Dim nk As String ' declaraciones generales

Private Sub Aceptar_Click() ' se ingresa un nick y se oprime este boton para iniciar el chat
If text1.Text = "" Then
MsgBox ("debe ingresar un nombre")
text1.SetFocus
Else
stnick = Trim(text1.Text)
nk = FreeFile
Open "C:\Hola.txt" For Output As nk
Print #nk, stnick
Close nk
Shell "parte II del chat.exe" ' llama la ventana de chat parte II (el chat)
Unload forminicial
End If
End Sub


Private Sub Text1_keypress(keyascii As Integer) 'textbox en el que se introduce el nick
If keyascii = 13 Then
Command1.Value = True
End If
End Sub


... y la segunda parte del chat(la del problema) es la siguientees otro proyecto aparte)

Private Sub algo(que va?)()
Dim nk As Integer
nk = FreeFile
Open "C:\hola.txt" For Input As nk
Line Input #nk, stnick
Close nk
listnick.AddItem stnick
nk = FreeFile
Open "C:\hola1.txt" For Input As nk
Line Input #nk, stnick
Close nk
listnick.AddItem stnick

End Sub

este codigo hace que me lea solamente el primer nombre de la lista ¿cómo hago para
leer los otros? ¿cómo hago para que se borren de la lista los nicks si es usuario sale?
desde ya muchas gracias por su apoyo.

Desolator