Hejsan! Första delen av din fråga (Du matar in från tangentbord)Tvingad radbrytning i textbox
    
    
Hur skulle en kodsnutt se ut där man vill ha radbrytning efter 50 tecken i en textbox?
Som jag har det nu så får man ta godtyckligt och trycka enter för att få radbrytning.
Klistrar man in en text så får man gå igenom den så den inte blir för lång.
Radbrytningen skall bryta efter ett ord och inte mitt i ett ord.
Tack på förhand
//JockeSv: Tvingad radbrytning i textbox
    
    
Kan du göra enl denna princip.
Obs TextBoxens MultiLine skall vara satt till True
<code>
Option Explicit
Dim tCount As Long
Private Sub Text1_KeyPress(KeyAscii As Integer)
           tCount = tCount + 1
If KeyAscii = 13 Then tCount = 0           ' tryckte Enter
If KeyAscii = 8 Then tCount = tCount - 1 ' tryckte BackSpace
If tCount >= 50 And KeyAscii = 32 Then
   SendKeys "{ENTER}", True
   SendKeys "{BACKSPACE}"   ' tar bort första space på ny rad.
           tCount = 0
End If
End Sub
</code>