Imports System
Public Module Module1
Public Function sort_string(ByVal s As String) As String
Dim arr() As Char = s.ToCharArray()
Array.Sort(arr)
Return New String(arr)
End Function
Public Sub Main()
Dim s As string = "vb.net"
s = sort_string(s)
Console.Write(s)
End Sub
End Module
' run
'
' .bentv
'