General :: Converting BUF File To Text

I have a file called CAPTURE.BUF. I am trying to convert it to text. Here is what I ahve done, but I get the message box ever time.

Public Function copyFile()
Dim SourceFile As String
Dim DestinationFile As String
SourceFile = "C:PCPICSWCAPTURE.BUF"
DestinationFile = "C:INVESTMENT_REPORTSCAPTURE.TXT"
On Error Resume Next
FileCopy SourceFile, DestinationFile
If Error > 0 Then
MsgBox "Could not copy mls file."
End If
On Error GoTo 0

End Function