text1 文本框有一组数据
2022-1-1 10:00,2
2022-1-1 9:10,3
2022-1-1 8:00,5
2022-1-1 11:00,4

以第一列时间进行排序，按时间先后顺序排

如果是数据库读取出来的时候可以添加sql排序 order by cast( 列名 as datetime)

不是sql提取出来，就是文本框内数据

字符串时间是可以比较大小的

给你写个参考：

rivate Sub Form_Load()
Dim a As Date, b As Date
a = CDate("2022-1-1 10:00")
b = CDate("2022-1-1 8:00")
If a > b Then
  MsgBox "a大"
Else
  MsgBox "b大"
End If
End Sub

首先把日期格式化，一样的格式，然后就可以用字符串来排序了。
Format(2022-1-1 9:10, "yyyy-mm-dd hh:mm")
变为 2022-01-01 09:10
一样的格式，就可以排序了。
 
能取出逗号前的数据吧？