Vincoli

Ciao a tutti!una domanda,dovrei importare delle parole da un foglio txt,solo che voglio che alcune parole non le prenda dal foglio,come dire le scarti,but non so il codice,potete aiutarmi please,il mio codice è il seguente:

Private Sub CommandButton1_Click()
Dim nFile As String
Dim rX As Integer 'riga file excel
Dim cX As Integer 'Colonna file esxcel
Dim X As Object 'Cella file excel
Dim t As Integer 'Variabile per ricerca testo
Dim tRiga As String 'Riga file
Dim lRiga As Integer 'Lunghezza riga
Dim iRiga As Integer 'Inizio Riga
Dim F As Integer




With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Filters.Clear '
.Filters.Add "text", "*.txt", 1
.Show
If .SelectedItems.Count = 0 Then
MsgBox ("Nessun File selezionato, procedura annullata,stupida bb")
Exit Sub
End If
nFile = .SelectedItems(1)
End With

rX = 1
cX = 1
iRiga = 1
tRiga = ""

Set X = ThisWorkbook.Worksheets(1).Cells
Open nFile For Input As #1
Line Input #1, tRiga
Do
lRiga = Len(tRiga)
iRiga = 0
For t = 1 To lRiga
If Mid(tRiga, t, 1) = "," Then
X(rX, cX) = Mid(tRiga, iRiga + 1, t - iRiga - 1)
cX = cX + 1
iRiga = t
End If
If Mid(tRiga, t, 1) = ";" Then
X(rX, cX) = Mid(tRiga, iRiga + 1, t - iRiga - 1)
rX = rX + 1
cX = 1
iRiga = t
End If
Next
X(rX, cX) = Mid(tRiga, iRiga + 1, lRiga)
rX = rX + 1
cX = 1
If EOF(1) Then Exit Do
tRiga = ""
Line Input #1, tRiga
if mid ram

'End If
Loop

Close #1

End Sub