Two points that may help you.
First point is your variable Filepath5 is actually being declared as a variant rather than a string as it lokks like you intended, to correct this you need to declare the variables as
Dim FilePath5 As String, strbuffer As String
Second point,It is normally a good...