Resgatar menor valor na string

Galera, é o seguinte

tenho uma string assim "69,68,62,62,62,23,23,23,21,23,23,23,23,23,23,34,31,31,32,31,31,32,32,31,32,43,35,59,61,49,25,24,24,112,24,20,14,14,14,23,141,36,"

tenho que pegar o menor e maior valor dela.

Para o maior valor eu resolvi, peguei aqui mesmo uma função no fórum..

Agora para pegar o MENOR valor, não consegui.

Oq posso fazer?

Para pegar o maior valor eu usei:

If InStr(juntardiferenca,",") > 0 Then
Matriz = split(juntardiferenca,",")
MaiorValor = 0

for i = 0 to ubound(Matriz) IF Matriz(i) <> "" AND IsNumeric(Matriz(i)) =TRUE THEN
If CDbl(Matriz(i)) > CDbl(MaiorValor) then
MaiorValor = Matriz(i)
end if
END IF
next
Else
MaiorValor = "Dados Incompativeis"
End If