用VB 查找到指定目录下最新创建的文件夹和文本文件

用VB6.0编写一个小程序程序运行时1.定义变量A,当A等于1时,在指定目录下(如F:\VB TEST)找到按时间排序最后创建的的一个文件夹,并将文件夹定义为变量B,把文件夹名称显示到text1中。
2.定义变量C,当C等于1时,在指定目录下如F:\VB TEST查找到最新创建的TXT文档,并将文档中第2行第3列的数据定义为变量D,D显示到text2中。
感谢各位大佬帮助!

dir函数得到文件列表,FileDateTime得到修改时间,排序,得到最后一个