程序代码：

Option Explicit

'窗体上放一个 listbox1 ，sotred 属性设为了 true
Private Type jg
    a As Variant
    b As Variant
End Type

Private Sub Command1_Click()
Dim j As jg
Dim a, b, c, d
a = "10:18 11:49 13:37 15:09 19:48 "
b = "08:29 18:19 18:20 18:23 "
c = "08:39 08:41 07:21 08:30 08:20 19:47 08:47 "
d = "14:48 16:07 15:48 19:20 14:10 00:00 "

j = minmax(a)
Print j.a, j.b
j = minmax(b)
Print j.a, j.b
j = minmax(c)
Print j.a, j.b
j = minmax(d)
Print j.a, j.b

End Sub

Private Function minmax(s As Variant) As jg
Dim f() As String
Dim i As Long
f = Split(s, " ")
List1.Clear
For i = 0 To UBound(f)
    If Len(f(i)) > 0 Then
        List1.AddItem f(i)
    End If
Next i
minmax.a = List1.List(0)
minmax.b = List1.List(List1.ListCount - 1)
End Function

程序代码：

Sub Test()
Dim t(3) As String
a = "10:18 11:49 13:37 15:09 19:48 "
b = "08:29 18:19 18:20 18:23 "
c = "08:39 08:41 07:21 08:30 08:20 19:47 08:47 "
d = "14:48 16:07 15:48 19:20 14:10 00:00 "
With CreateObject("msscriptcontrol.scriptcontrol")
.Language = "javascript"
.addcode "function s(y){x=y.split(' ');x.sort();return x;}"
t(0) = "a=" & .eval("s('" & Trim(a) & "')")
t(1) = "b=" & .eval("s('" & Trim(b) & "')")
t(2) = "c=" & .eval("s('" & Trim(c) & "')")
t(3) = "d=" & .eval("s('" & Trim(d) & "')")
End With
MsgBox Join(t, vbCrLf)
End Sub