Option Explicit
 
Private Declare Sub VBEX_SortByteAr Lib "vbex32.dll" _
  Alias "VBSORTARRAYB" ( _
  sArr() As Byte, _
  ByVal nVon As Long, _
  ByVal nBis As Long, _
  ByVal nDirection As Byte)
 
Private Sub Command1_Click()
  Dim bArray() As Byte
  Dim nCount As Long
  Dim i As Long
 
  nCount = Len(Text1.Text)
  ReDim bArray(nCount)
 
  For i = 1 To nCount
    bArray(i) = Val(Mid$(Text1.Text, i, 1))
  Next i
 
  VBEX_SortByteAr bArray(), 1, nCount, 0
 
  Text1.Text = ""
  For i = 1 To nCount
    Text1.Text = Text1.Text + CStr(bArray(i))
  Next i
End Sub