Finding max value of textbox

[ident]

Dim textboxes = Me.Controls.OfType(Of TextBox).ToArray().OrderBy(Function(tb) CInt(tb.TextLength)).Last()