Переменная в Sub

[E'rsh]

Здоров!

Перепробовал много вариантов, но не могу сделать следующее...

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

Dim Peremen as String*1

в итоге "Peremen" хренит только один символ (байт)

А как это сделать в функции

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

Function MyFunction (Peremen as String*1) as Long

Этот пример Не работает
HELP

[keks-n]

в итоге "Peremen" хренит только один символ (байт)

Ты же сам ей маск. длинну в 1 байт посравил
Или ты не знаешь, что *n-определение размера. Убери его.

[E'rsh]

keks-n
Ты не понял мне это и надо (один символ) но только обявить в функции

[ANDLL]

Нельзя. Просто нельзфя и все. Вообще-то это лишено смысла, поэтому объявляй просто As String и все.

[keks-n]

Ну тогда:

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

Function MyFunction (Peremen as String) as Long
Dim Peremen2 as String*1
Peremen2=Peremen