検索結果が複数の時の抽出の仕方

こんにちは

 arrDr.OrderBy(Function(r) Int32.Parse(System.Text.RegularExpressions.Regex.Match(r("番号").ToString,"\d{5}$").Value)).Last().Item("番号").ToString

としてください。
なおこちらも対象データがない（末尾に５桁の数字が無い場合）はエラーとなりますので
そのようなケースがある場合は式を変える必要があります。