Array out of bounds

 Dim User(5) As String

        Do While Reader.Peek() <> -1
            LineRead = Reader.ReadLine()
            User = LineRead.Split(",")

            If User(2) = Txt_Username.Text And User(3) = Txt_Password.Text Then
                Homepage.Show()
                Me.Hide()
            Else
                MsgBox("Invalid Username and Password combination. Please try again.")
            End If
        Loop


        Reader.Close()