Here's one way, if you have VBA6 or later:

=================================
Option Explicit

Sub foo()
Dim str As String
Dim TempArray As Variant, Temp As Variant
Dim i As Integer
Dim NoExchanges As Integer

str = ("9, 5, 8, 3, 1, 6")
TempArray = Split(str, ", ")

   ' Loop until no more "exchanges" are made.
   Do
       NoExchanges = True

       ' Loop through each element in the array.
       For i = 0 To UBound(TempArray) - 1

           ' If the element is greater than the element
           ' following it, exchange the two elements.
           If TempArray(i) > TempArray(i + 1) Then
               NoExchanges = False
               Temp = TempArray(i)
               TempArray(i) = TempArray(i + 1)
               TempArray(i + 1) = Temp
           End If
       Next i
   Loop While Not (NoExchanges)
   
str = Join(TempArray, ", ")

MsgBox (str & vbLf & "Max Value:  " & TempArray(UBound(TempArray)))
End Sub
===============================

--ron