Merhaba arkadaşlar öncelikle vb net bölümü bulamadiğim için buraya açdim bir şifreleme programi yazmaya çalişiyordum çok saçma bir hatayla karşilaşip bunu videoya çekip facede gruplara atmişdim şimdi o videoyu aticam kimse cevap atmadi çünkü o videodan sonra sorunlu olan satırı buldum bu satiri silince şifreliyor ama çözülmüyor 
bu satırı silmeden döngünün durmasını engellemem lazim yardimci olursanız sevinirim
döngüyü durduran kod
While strFileToEncrypt.IndexOf("\"c, i) <> -1
iPosition = strFileToEncrypt.IndexOf("\"c, i)
i = iPosition + 1
End While
kod kısa diye doğrudan yazdim burdada video
bu satırı silmeden döngünün durmasını engellemem lazim yardimci olursanız sevinirim döngüyü durduran kod
While strFileToEncrypt.IndexOf("\"c, i) <> -1
iPosition = strFileToEncrypt.IndexOf("\"c, i)
i = iPosition + 1
End While
kod kısa diye doğrudan yazdim burdada video