怎样得到字符串中的路径?解决方法

怎样得到字符串中的路径?
例如:
C:\AAAA\DDDD\C.TXT
得到C:\AAAA\DDDD\

[解决办法]
Private Sub Command1_Click()
Dim str As String, strPath As String
str = "C:\AAAA\DDDD\C.TXT "
strPath = Left(str, InStrRev(str, "\ "))
End Sub