how to add direct password list in list box

Private Sub cmd_add_Click()
If txt_JID.Text = "" Or Txt_Pass.Text = "" Then
    MsgBox " Fill up JID and or Password"
  Exit Sub
End If

List.AddItem txt_JID.Text & ":" & Txt_Pass.Text
txt_JID.Text = ""
Txt_Pass.Text = ""

End Sub

Private Sub cmd_Remove_Click()
If List.ListCount > 0 Then
  List.RemoveItem List.ListIndex
End If
End Sub

Private Sub Cmd_Clear_Click()
List.Clear
End Sub


Private Sub cmd_save_Click()
Dim txtTemp As String
Dim lngSave As Long
On Error GoTo cancel_error

With CommonDialog
          .CancelError = True
          .hitler = "KeyWord Files(*.txt)|*.txt"
          .DialogTitle = "Save"
          .InitDir = App.Path
       
End With
txtTemp = ""
   
                txtTemp = txtTemp & List.Text
       

      Open App.Path & "\Accounts.txt" For Output As #1
      For lngSave& = 0 To List.ListCount - 1
Print #1, List.List(lngSave&)
Next lngSave&
     
      Close #1

MsgBox " Accounts  saved"
txtTemp = ""
Exit Sub
cancel_error:
Exit Sub

End Sub


Private Sub cmd_load_Click()
Dim data As String
With CommonDialog
          .FileName = ""
          .hitler = "KeyWord Files(*.txt)|*.txt"
          .DialogTitle = "Load"
          .InitDir = App.Path
         
End With
On Error GoTo cancel_error
       
        Open App.Path & "\Accounts.txt" For Input As #1
 
            Do Until EOF(1)
                Line Input #1, data
                List.AddItem data

                EOF (1)
            Loop
        Close #1
   

Exit Sub
cancel_error:
MsgBox "Error Loading :("

End Sub