зашифровать,расшифровать текст

[Чертенок7]

Здравствуйте!выполняю задание: чтобы зашифровать текст, записанный с помощью русских букв(прописных) и знаков препинания,его можно переписать, заменив каждую букву на N-ую букву,где N сдвиг по алфавиту(можно представить что буквы идут по кругу как часы).зашифровать и расшифровать текст(форма,элементы управления)
я написала, но у меня программе без разницы что шифровать она по всей таблицы кодировки ходит, а надо тока от 192 до 223 как понимаю я .Может есть у кого идеи,подскажите пожалуйста

Dim striz, strpos As String
Dim byk_zam, i As Integer
Const sdv As Integer = 2
Private Sub CommandButton1_Click()
striz = TextBox1.Text
For i = 1 To Len(striz)
byk_zam = Asc(Mid(striz, i, 1)) + sdv
MsgBox byk_zam
If byk_zam > 223 Then
byk_zam = byk_zam - 223 + 191
End If
strpos = strpos & Chr(byk_zam)
Next i
TextBox1 = strpos
End Sub

Private Sub CommandButton2_Click()
striz = TextBox1.Text
For i = 1 To Len(striz)
byk_zam = Asc(Mid(striz, i, 1)) - sdv
If byk_zam < 192 Then
byk_zam = byk_zam + 223 - 191
MsgBox byk_zam
End If
strpos = strpos & Chr(byk_zam)
Next i
TextBox1 = strpos
End Sub

Private Sub CommandButton3_Click()
TextBox1 = ""
TextBox2 = ""
End Sub

[motorway]

Ну у вас же есть ограничения if по коду символа...
а если нужно только в диапазоне каком-то менять буквы, то можно использовать Mod (остаток от деления).

[doober]

Если я все правильно понял

Dim striz, strpos As String
Dim byk_zam, i As Integer
Const sdv As Integer = 2
Private Sub CommandButton1_Click()
striz = TextBox1.Text
For i = 1 To Len(striz)
byk_zam = Asc(Mid(striz, i, 1)) + sdv
MsgBox byk_zam
If byk_zam > 255 Then
byk_zam = byk_zam - 32
End If
strpos = strpos & Chr(byk_zam)
Next i
TextBox1 = strpos
End Sub

Private Sub CommandButton2_Click()
strpos = ""
striz = TextBox1.Text
For i = 1 To Len(striz)
byk_zam = Asc(Mid(striz, i, 1)) - sdv
If byk_zam < 224 Then
byk_zam = byk_zam + 32
MsgBox byk_zam
End If
strpos = strpos & Chr(byk_zam)
Next i
TextBox2 = strpos
End Sub

Private Sub CommandButton3_Click()
TextBox1 = ""
TextBox2 = ""
End Sub

[Чертенок7]

А Я ВОТ ТАК ПОПРОБОВАЛА ТОЖЕ РАБОТАЕТ

Dim s0, s1 As String, byk, i As Integer
Const sd = 3

Private Sub CommandButton1_Click()
s0 = TextBox1
For i = 1 To Len(s0)
byk = Asc(Mid(s0, i, 1))
If byk >= 192 And byk <= 233 Then
byk = byk + sd
Else
byk = byk
End If
s1 = s1 & Chr(byk)
Next
TextBox1 = s1
End Sub

Private Sub CommandButton2_Click()
s0 = TextBox1
For i = 1 To Len(s0)
byk = Asc(Mid(s0, i, 1))
If byk >= 192 And byk <= 233 Then
byk = byk - sd
Else
byk = byk
End If
s1 = s1 & Chr(byk)
Next
TextBox1 = s1
End Sub

[Чертенок7]

ВОТ ТОЛЬКО ОЧИСТКА КОСЯЧНО РАБОТАЕТ,НЕ ПОМОЖИТЕ ПОНЯТЬ ПОЧЕМУ?она удаляет тока с поля,но в памяти поля она сохраняется и при нажании кнопки зашифровать новое слово , старые записи выходят