Select Case MsgBox("Möchten sie die inhalte der folgenden Verzeichnisse" & _
  "löschen? " & vbCrLf & "Verzeichniss 1: " & Text1.Text & vbCrLf & _
  "Verzeichniss 2: " & Text2.Text & vbCrLf & "Verzeichniss 3: " & Text3.Text & _
  vbCrLf & "Verzeichniss 4: " & Text4.Text, vbQuestion, vbYesNo)
Case vbYes
MsgBox "Lösche"
On Error Resume Next
Kill Text1.Text & "\*.*"
Kill Text2.Text & "\*.*"
Kill Text3.Text & "\*.*"
Kill Text4.Text & "\*.*"
Case vbNo
End Select
End Sub