اريد المساعده في هذا الكود لا اعرف الخطاء

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

FolderBrowserDialog1.ShowDialog()

If FolderBrowserDialog1.SelectedPath <> "" Then

TextBox1.Text = FolderBrowserDialog1.SelectedPath

If My.Computer.FileSystem.FileExists(TextBox1.Text + "\" + "autorun.inf") Then

My.Computer.FileSystem.DeleteFile(TextBox1.Text + "\" + "autorun.inf")

MsgBox("تم العثور علي فايروس الأوتوران")

Else

MsgBox(" لم يتم العثور علي فايروس الأوتوران")

End If

End If

End Sub