Visual Basic : Antivirüs Programı Yapma

Gerekenler; 
1 adet textbox
2 adet buton

Kod:

Buton2 codları[dosya seç];
Dim alltext As String = "", lineoftext As String = ""
OpenFileDialog1.Filter = "All Files | *.*"
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileName <> "" Then

End If
Try
FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)

Do Until EOF(1)
lineoftext = LineInput(1)
alltext = alltext & lineoftext & vbCrLf
Loop
TextBox1.Text = alltext
Catch
Finally
FileClose()
End Try

Button 1 codları[tara codları]

If TextBox1.Text.Contains("Virus") Then
MsgBox("Virüslü Kodlama Algılandı !", MsgBoxStyle.Critical)
Else
MsgBox("Güvenli Kodlama")
End If