Private Sub Command1_Click(Index As Integer)
Dim i, j As Integer
For i = 2 To Text1.Text("sheet1").UsedRange.Rows.Count + 1
For j = 2 To Text2.Text("sheet2").UsedRange.Rows.Count + 1
If InStr(1, Trim(Text1.Text("sheet1").Cells(i, 1)), Trim(Text2.Text("sheet1").Cells(j, 1))) >= 1 Then
Text1.Text("sheet1").Rows(i).Delete
i = i - 1
End If
Next
Next
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click(Index As Integer)
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub

Private Sub Command4_Click()
CommonDialog1.ShowOpen
Text2.Text = CommonDialog1.FileName
End Sub

Private Sub Form_Load()

End Sub