write a parser that parses on "_" Dim mystring As String Dim resultstr(3) As String Dim nStart As Integer Dim nEnd As Integer Dim cnt As Integer mystring = "hfskh_XXX_YYY_ZZZ.txt" nStart = InStr(mystring, "_") Do While (nStart > 0) nEnd = InStr(nStart + 1, mystring, "_") If nEnd = 0 Then nEnd = InStr(nStart, mystring, ".") End If resultstr(cnt) = Mid(mystring, nStart + 1, nEnd - nStart - 1) nStart = InStr(nStart + 1, mystring, "_") cnt = cnt + 1 Loop :zzz: