You are saying if you do this it returns the IP address on 2 lines
Code:
Public Sub read_data()

If Dir(App.Path & "\accounts.dat") <> "" Then 'if the file exists
    totalaccounts = 0
    Open App.Path & "\accounts.dat" For Input As #1
        Do While Not EOF(1)
            Input #1, TempString
            TempArray = Split(TempString, "&#191;")
            account(totalaccounts).ip = TempArray(0)
            MsgBox TempArray(0)
            account(totalaccounts).firstname = TempArray(1)
            account(totalaccounts).surname = TempArray(2)
            account(totalaccounts).username = TempArray(3)
            account(totalaccounts).password = TempArray(4)
            account(totalaccounts).email = TempArray(5)
            account(totalaccounts).compUser = TempArray(6)
            account(totalaccounts).compName = TempArray(7)
            account(totalaccounts).Date = TempArray(8)
            totalaccounts = totalaccounts + 1
        Loop
    Close 1
Else
    Open App.Path & "\accounts.dat" For Output As #1 'this will create the file
    Close 1
End If
    
End Sub