Reading Data from a Notepad file

Reading Data from a text file and then placing it in a Listbox

Dim x As Integer
Dim r As Integer
Dim guess As String
Dim animal(5) As String
Dim inFile As IO.StreamReader

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
inFile = IO.File.OpenText("h:\programming2010\animals.txt")
Do Until inFile.Peek = -1
x = x + 1
animal(x) = inFile.ReadLine
listData.Items.Add(animal(x))
Loop
inFile.Close()