ACCESS怎样截取指定字符间的文本

字段中有如下文本：
农学院/2014/种子科学与工程
农学院/2014/植物保护
研究生学院/2014/硕士
想把“/”号间的字符截取到不同的字段里。
ACCESS不支持parsename函数，求网友帮助它法

'使用instr函数截取字符串
    Dim instrg, outstrg, x As String
    Dim m, n, i As Integer
    instrg = "农学院/2014/种子科学与工程" '需要拆分的字符串
    m = Len(instrg) - Len(Replace(instrg, "/", "")) '分隔符/的数量    
    '利用循环函数拆分及合成新的字符串 "'农学院','2014','种子科学与工程'"
    For n = 1 To m
        i = InStr(instrg, "/")
        x = Left(instrg, i - 1)
        instrg = Mid(instrg, i + 1)
        outstrg = outstrg & ",'" & x & "'" 
    Next    
    outstrg = Mid(outstrg & ",'" & instrg & "'", 2)
    '使用sql语句插入表中记录
    DoCmd.RunSQL "insert into 表 values(" & outstrg & ");"