INPUT "User to look up: ", lookup$

OPEN "data.txt" FOR READ AS #1

lengthoflookup% = LENGTH(lookup$)

WHILE NOT EOF(1)
  LINE INPUT #1, buffer$
  IF LEFT$(buffer$, lengthoflookup%) = lookup$ THEN
    username$ = LEFT$(buffer$, lengthoflookup%)
    realname$ = MID$(buffer$, lengthoflookup% + 2, lengthoflookup%)
    phonenumber$ = MID$(buffer$, lengthoflookup% * 2 + 4, 8)
    email$ = MID$(buffer$, (lengthoflookup% * 2) + 14, (lengthoflookup% * 2 + 14) - lengthoflookup%)
    BREAK
WEND

PRINT "Username: "; username$
PRINT STRING$(20, "-")
PRINT "Name: "; realname$
PRINT "Phone Number: "; phonenumber$
PRINT "Email: "; email$

CLOSE #1

Sub main()
    Dim name As String
    Dim phone As String
    Dim email As String
    
    name = InputBox("Enter name: ")
    phone = InputBox("Enter phone: ")
    email = InputBox("Enter e-mail: ")
    
    Call MsgBox("Name = " & name & ", phone = " & phone & ", E-mail = " & email)
    
End Sub