TXT Datei löschen nach auslesen der Daten

Sub Wert_Holen_Datei_löschen()
Dim strDatei As String, iFree As Integer
Dim arrTmp(1 To 1, 1 To 1), strTmp As String
Const strPfad As String = "C:\Test\"
strDatei = Dir(strPfad & "*.txt")
If strDatei = "" Then
MsgBox ("Keine Dateien vorhanden")
GoTo Ende
Else
Do While strDatei  ""
iFree = FreeFile
Open (strPfad & strDatei) For Input As #iFree
Do While Not EOF(iFree)
Line Input #iFree, strTmp
arrTmp(1, 1) = strTmp
Loop
Close iFree
Sheets("Tabelle1").Range("D2") = arrTmp
Erase arrTmp
strDatei = Dir
Loop
Ende:
End If
End Sub

Nach dem der Werte in die Tabelle1 Zelle D2 eingelesen wurden, möchte ich gern die soeben ausgelesene TXT Datei löschen.
Kann mir bitte jemand einen Tipp geben wie und wo ich die Kill Anweisung setzen muss.
Danke im voraus
MFG Andre