[RESOLVED] [2005] Why is this not completeing

[stimbo]

Dim numHighest As Double = 0
  Dim currentItem As Double = 0
 
        Using sr As New IO.StreamReader("numberSet.txt")
            Do Until sr.Peek = -1
                If Double.TryParse(sr.ReadLine, currentItem) Then
                    If currentItem > numHighest Then
                        numHighest = currentItem
                    End If
                End If
            Loop
            sr.Close() 'Examples on MSDN still had this line so thought I'd better use it
        End Using
 
        MessageBox.Show(numHighest.ToString)