Убрать кубики вместо Alt+Enter

[ольгаг]

Здравствуйте Уважаемые программисты!
Помогите пожалуйста решить следующую проблему:
На форме (excel2003 vba) есть textbox1 и кнопка CommandButton1, которая возвращает текст из этого textbox1 в текущую ячейку листа. Проблема в том, что в Textbox-е строки вводятся (так необходимо) с переносом с помощью Enter и при возврате в ячейку вместо Enter в конце строк появляется символ "кубик". Подскажите пожалуйста, как убрать этот символ, но оставить перенос строк (Alt+Enter) в ячейке? Спасибо!

Private Sub CommandButton1_Click()
   Dim SelRange As Range
   Set SelRange = ActiveCell
   SelRange.Select
   With Selection
      .ClearContents
      .Value = Me.TextBox1.Text
   End With
   ActiveCell.Activate
   Unload Me
End Sub

[Stilet]

Как вариант:

 .Value = Replace(Me.TextBox1.Text,Chr(13) & Chr(10),"")

[ольгаг]

Сообщение от Stilet

Как вариант:

 .Value = Replace(Me.TextBox1.Text,Chr(13) & Chr(10),"")

Спасибо большое! С функцией Replace работает!

[Аватар]

Принудительного переноса строк так же не будет. В XML-таблицу засовывал & # 1 0 ; (без пробелов), чтобы в ячейке принудительный перенос строки в этом месте был. Но это же в виде XML, как на уровне VBA это решается без понятия

[RAN.]

Сообщение от Stilet

Как вариант:

 .Value = Replace(Me.TextBox1.Text,Chr(13) & Chr(10),"")

Выглядит хорошо, работает плохо.

.Value = Replace(Replace(Me.TextBox1.Text, Chr(13), ""), Chr(10), "")

выглядит плохо, работает хорошо.