Probleme beim Einfügen

Hey Leute,
helft mir mal bitte weiter...
habe folgende Code in dem ich von einer Datei in eine andere Datei in eine UserForm was kopieren will

Private Sub cboWKZ_Click()
Dim strVerweis As String
Application.ScreenUpdating = False
'Werkzeugmanagement
Const strPfad = "F:\Werkzeuglisten\"          'Pfad zur anderen Datei
Const strDatei = "Werkzeug-Checkup 2015.xls"  'Andere Datei
Const strBlatt = "2015"                       'Tabellenblatt
Const strZelle = "B3"                         'Zelladresse
strVerweis = "'" & strPfad & "[" & strDatei & "]" & strBlatt & "'!" & strZelle
With .txbDurchschWartungszeit
.Formula = "=IF(" & strVerweis & "="""",""""," & strVerweis & ")"    'Formel eintragen
.Value = .Value                                                      'Forml in Wert  _
umwandeln
End With
End Sub