Inhalt der TXT-Datei lesen?

Sub Read_PW()
On Error GoTo Fin
Dim objClipBoard As Object
Dim strTMP As String
Dim file As String
file = "C:\DATEN\04_Notizen\PW.txt"
Open file For Binary As #1
strTMP = Space(LOF(1))
Get #1, , strTMP
Close #1
Set objClipBoard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
With objClipBoard
.SetText strTMP
.PutInClipboard
End With
Debug.Print strTMP
Fin:
Set objClipBoard = Nothing
If Err.number  0 Then MsgBox "Error: " & Err.number & " " & Err.Description
End Sub