Zamiast kodu:
Range("A1").Value = TextBox1.Text
użyj kodu:
Dim i As Long
Range("A1").Value = ""
For i = 1 To Len(TextBox1.Text)
If Asc(Mid(TextBox1.Text, i, 1)) <> 13 Then
Range("A1").Value = _
Range("A1").Value & _
Chr(Asc(Mid(TextBox1.Text, i, 1)))
End If
Next i
--
Pozdrawiam
Stanislaw
stanislaw_@op.pl |