Ciao, se nel tuo file ogni riga è una parola, allora puoi fare anche una cosa del genere:

codice:
Private Sub ContaParole()
   Dim parole As Scripting.Dictionary
   Dim I As Long
   Dim riga As String
   Set parole = New Dictionary
   Open App.Path & "\parole.txt" For Input As #1
   Do While Not EOF(1)
      Line Input #1, riga
      If parole.Exists(riga) Then
         parole.Item(riga) = parole.Item(riga) + 1
      Else
         parole.Add riga, 1
      End If
   Loop
   Close #1
   For I = 0 To parole.Count - 1
      List1.AddItem parole.Keys(I) & " ==> " & parole.Items(I)
   Next
   Set parole = Nothing
End Sub