Visual Basic 6.0 da proje dosyası bılgısayarım vırus olarak algıladığı ıcın sılındı bendede kod kaldı sadece

Private Sub Giris_Button_Click()
Dim ad_soyad As String
Dim harf_notu As String
Dim gecme_notu As String
Dim bolum_adi As String
Dim ogr_no As Integer
Dim vize As Integer
Dim final As Integer
Dim ort As Integer



ad_soyad = Text1.Text
bolum_adi = Text5.Text
ogr_no = Text2.Text
vize = Text3.Text
final = Text4.Text
ort = (vize * 0.3) + (final * 0.7)

If ort <= 100 And ort > 89 Then
harf_notu = "AA"
ElseIf ort > 84 Then
harf_notu = "BA"
ElseIf ort > 79 Then
harf_notu = "BB"
ElseIf ort > 74 Then
harf_notu = "CB"
ElseIf ort > 69 Then
harf_notu = "CC"
ElseIf ort > 64 Then
harf_notu = "DC"
ElseIf ort > 59 Then
harf_notu = "DD"
ElseIf ort > 49 Then
harf_notu = "FD"
ElseIf ort < 50 Then
harf_notu = "FF"
End If

If ort > 60 Then gecme_notu = "geçti"
If ort < 60 Then gecme_notu = "kaldı"

List1.AddItem ad_soyad & " " & bolum_adi & " " & ogr_no & " " & vize & " " & final & " " & ort & " " & harf_notu & " " & gecme_notu

End Sub