Private Declare Sub SortStr Lib "vbex32.dll" Alias _
        "VBSORTARRAYSTR"
        (iErrg() As String, Byval nvon As Long, _
         Byval nbis As Long,  Byval nDirect As Byte)
 
Private Sub SortALabel(oLbl As Label)
        Dim sErg As Variant
        Dim i As Integer
        Dim w As String
 
        sErg = Split(oLbl.Caption)
        SortStr sErg,0,0,0
 
         For i = 0 To Ubound(sErg)
                w = w & sErg(i) & " "
         Next 
 
         oLbl.Captrion = Trim(w)
End Sub