文字列を区切る関数
"￥"などでも区切れるのでツリービューにも使えそうです。

使用例)

---

Dim strDate As String
Dim strSpt() As String
Dim i As Integer

strDate = "2007-06-25"
strSpt = Split(strDate, "-")　'←文字列と区切記号が引数

For i = 0 To UBound(strSpt)
    MsgBox strSpt(i)
Next i

Erase strSpt()  '←とりあえず今回はもういらないので破棄

---

この場合は
    'strSpt(0)　2007
    'strSpt(1)  06
    'strSpt(2)  25
'が配列に保存されている