试图在文本文件中找到最大数量（vb）

Question

所以我的代码如下：

Dim lines = IO.File.ReadAllLine("C:\Users\conno\Desktop\Assessment\Assessment\Assessment\bin\Debug\Leaderboard.txt")

Dim qry = (From i As String In lines Select CType(i, Integer))

Dim max = qry.Max

txtMax.Text = max

当我运行该程序以找到最大的数字时，它将找到字符串而不是整数。谁能帮我，让它找到最大的电话号码？

谢谢，康纳！