kodun bir kısmını atıyorum
Not: AsciiKodu = CInt(Mid(SiraliKodlar, i + 1, 4)) sorun bu kısımda
Do While i < SiraliKodlar.Length
Dim AsciiKodu As Integer
AsciiKodu = CInt(Mid(SiraliKodlar, i + 1, 4))
yazi &= Chr(AsciiKodu)
lblDesifre.Text = yazi
i += 4
Loop