리스트박스 저장관해서 질문합니다..제발 도와주셔요~ ㅠㅠ

If InStr(StrConv(WinHttp.ResponseBody, vbUnicode), http://static.nid.naver.com/sso/cross-domain.nhn?sid=) Then
List2.AddItem arr2(0) & 네이버 로그인 성공: Text1.Text = Text1.Text + 1
Open App.Path & \Use.txt For Append As #1
Print #1, List1.List(i)
Close #1
Else
List2.AddItem arr2(0) & 아이디 또는 비밀번호가 올바르지 않습니다 위에소스가 소스중의 일부분인데요... 지금 네이버로그인이된 아이디들만 Use.txt 파일로 따로 저장하려구해요..근데자꾸 저장은되긴하는데.......Use.txt 파일을 열어보면thoyeon/161**** 이런식으로 리스트박스에 맨위엣줄만 저장되요...이거왜이러는걸가요..? 제가보기에는 Print #1, List1.List(i) 이부분에서 문제가뜨는것같은데....이부분에서 뭘로바꿔줘야지...네이버로그인된 아이디들만 저장할수있을까요..?ㅠㅠ 제발도와주세요 ㅠㅠㅠㅠㅠㅠㅠㅠㅠㅠㅠㅠ