Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Lukas
Public Function ClearText(s As String) As String Dim arr arr = Split(s, Chr(34)) If UBound(arr) = 2 Then arr(0) = Trim(arr(0)) arr(1) = Trim(arr(1)) ClearText = arr(0) & Space(1) & Chr(34) & arr(1) & Chr(34) End If End Function
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.