Textbox igen igen

Kode 

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
    If (Len(Text1.Text) - Len(Replace(Text1.Text, vbCrLf, vbNullString))) / 2 + 1 >= 10 Then
      KeyAscii = 0
    End If
  End If
End Sub

Problem 1 kunne løses noget lignende det her:

Det virker fint, men kan du få den til at skifte linje selv så når den når til enden at textboxen i stedet for at man skal trykke return? Stadig med begrænsning af linjer,


Dan

Kode 

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
    If (Len(Text1.Text) - Len(Replace(Text1.Text, vbCrLf, vbNullString))) / 2 + 1 >= 10 Then
      KeyAscii = 0
    End If
  End If
End Sub

/AC