NewPaths = Replace(NewPaths, CurrPaths, DeletePath(5), 1, vbTextCompare)
1)Here you are using NewPaths as a searchstring but it is empty so you will delete paths.
2)CurrPaths is now your findstring, wrong.
3) DeletePath(5) is not a string, if you dim it correctly it is an array of strings.
Try this (you still need to get the ";" correct)
Dim DeletePath(5) as string
NewPaths = Replace(CurrPaths, DeletePath(dpcount), "", 1, vbTextCompare)