Как считать весь текст из файла

t = FreeFile
Open "d:\test.txt" For Input As t
 
Do Until EOF(t)
Line Input #t, s
If s = "слово" Then i = i + 1
Loop
 
   MsgBox i
   Close t

  fi% = FreeFile 
 
  Open "d:\test.txt" For Input As #fi%
 
  i%=0
 
  Do Until EOF(fi%)
      Line Input #fi%, Stri$
      Stri$=Trim$(Stri$)
      Words=Split(Stri$," ")
      i%=i%+Ubound(Words,1)+1
  Loop
 
  Close fi%
 
  MsgBox Cstr(i%)

Open "d:\test.txt" For Input As #fi%
 
  i = 0
 
  Do Until EOF(fi%)
      Line Input #fi%, Stri$
      Stri$ = Trim$(Stri$)
      words = Split(Stri$, "")
      i = i + UBound(words, 1) + 1
      If Stri$ = "слово" Then k = i
  Loop
 
  Close fi%
 
  MsgBox k 'CStr(i)
End Sub

fi% = FreeFile 
 
  Open "d:\test.txt" For Input As #fi%
 
  i%=0
 
  Do Until EOF(fi%)
      Line Input #fi%, Stri$
      Stri$=Trim$(Stri$)
      Words=Split(Stri$," ")
      for j%=0 to Ubound(Words,1)
           if Cstr(Words(j%))="слово" then i%=i%+1
      Next j%
  Loop
 
  Close fi%
 
  MsgBox Cstr(i%)