字段截分

提供思路：

用instr函数来确下划线所处位置（即第几个字符），然后用mid函数和instr函数分别确定后面2个下划线的位置。

 Dim strValue As String
    Dim myTest As String
    Dim f1 As String
    Dim f2 As String
    Dim f3 As String
    Dim f4 As String
    Dim x As Integer    '第1个下划线的位置
    Dim y As Integer    '第2个下划线的位置
    Dim z As Integer    '第3个下划线的位置
    strValue = "*收到BB款_同-8627_2009.03.03_李根"
    myTest = strValue
    x = InStr(myTest, "_")
    myTest = Mid(myTest, x + 1)
    y = InStr(myTest, "_") + x
    myTest = Mid(strValue, y + 1)
    z = InStr(myTest, "_") + y
    f1 = Left(strValue, x - 1)
    f2 = Mid(strValue, x + 1, y - x - 1)
    f3 = Mid(strValue, y + 1, z - y - 1)
    f4 = Mid(strValue, z + 1)