Attribute VB_Name = "Password" Type Authorize uname As String * 30 passwd As String * 30 End Type Public Pos As Integer, Count As Integer, Fnum As Integer Public Sub AuthInit() Dim Rlenght As Integer, Access As Authorize Rlenght = Len(Access) Fnum = FreeFile Open "members1.dat" For Random As Fnum Len = Rlenght Count = LOF(Fnum) / Rlenght For Pos = 1 To Count Get Fnum, Pos, Access ' MsgBox Access.uname + " " + Access.passwd Next End Sub Public Sub Main() AuthInit AddUser End Sub Public Sub AddUser() Dim Access As Authorize Dim uname As String Dim passwd As String uname = InputBox("Enter username") passwd = InputBox("Enter password") Access.uname = uname Access.passwd = passwd Pos = Count + 1 Put Fnum, Pos, Access ' MsgBox Fnum & " " & Pos MsgBox "New User added: " & Access.uname & Access.passwd End Sub