From looking at your code I notice the following:
1) You two File.Exists() checks check for two different files, yet within each you are writing to the same location.
2) As a result, if the PathFilePass file exists it overrides any existing file located in "PathFilePass", where as if PathFileFail file exists then it appends text on to it.
I would do them as If Then ElseIf Then End If statements as I would have thought they would be mutually exclusive.
If you want all your outputs then I would do:
If (File.Exists(PathFilePass) = False) Then
CreateText = Result_Save
File.WriteAllText(PathFilePass, Result_Save + vbCrLf)
Else
File.AppendAllText(PathFilePass, Result_Save + vbCrLf)
End If
This will result in 1 file that contains all of your output.
Unless you remove the file after each run through.
The check says "If the file is not there, then create it, else append to it.