Imports System
Imports System.Linq
Public Module Module1
Public Sub Main()
Dim n As Integer = 81925
Try
Dim s As String = n.ToString()
s = String.Concat(s.OrderBy(Function(ch) ch))
n = Int32.Parse(s)
Console.WriteLine(n)
Catch e As FormatException
Console.WriteLine(e.Message)
End Try
End Sub
End Module
' run:
'
'
' 12589
'