Что не так?!

[zordrek]

перекодировщик обычных символов в код ASCII

Код: Выделить всё

Option Explicit
Dim ZnachenieScroll As Long

Private Sub Command1_Click()
ShowKod
End Sub

Private Sub Form_Load()
VScroll1.Value = 1
VScroll1.Min = 1
VScroll1.LargeChange = 5
VScroll1.SmallChange = 1
Form1.Caption = "ACSII-reader" ' это заголовок нашей формы(вместо Form1)
Text1.Text = "Сюда можно ввести всякие буковки и циферки , Fuck их!" ' этот текст вводится автоматом в Text1
ShowKod ' это имя нашей процедуры, которую мы создадим ниже
End Sub

Private Sub VScroll1_Change()

ZnachenieScroll = VScroll1.Value
ShowKod
End Sub

Private Sub ShowKod()
Dim X As Long
VScroll1.Max = Len(Text1.Text)
For X = ZnachenieScroll To ZnachenieScroll + 4
Text2(X - ZnachenieScroll).Text = Mid(Text1.Text, X, 1)
If Len(Text2(X - ZnachenieScroll).Text) > 0 Then
Text3(X - ZnachenieScroll).Text = Asc(Text2(X - ZnachenieScroll).Text)
Else
Text3(X - ZnachenieScroll).Text = ""
End If
Next X
End Sub


[RayShade]

По мне так, забыл ты воспользоваться тегом code для оформления поста. Ну а что еще там не так я не вижу.

[Viper]

Даю сутки на формулировку вопроса. А потом закрою тему.