Copying file contents and pasting to active window in VBA

Question

When I try to use the following code, it pastes with xBF XBF XBF in my active field:

Private Sub CommandButton1_Click()

Dim pathname As String, MyAppID

MyAp