Remove extra line spaces from Userform Textbox

[sharky12345]

I'm using 'Chr(10)' to add line spaces between text in a textbox, (not sure if this is the best one to use and don't know the difference between the different methods anyway), but is there a way I can run a routine to remove extra spaces once the Userform is displayed, or just before it is to account for a scenario where a user may have inadvertently hit the enter button twice and entered more than 1 line?

 

[My Aswer Is This]

Why not look in properties and set TextBox to "Multiline"

 

[sharky12345]

The properties are set to Multiline, not sure how that will remove extra lines spaces though?

 

[Kenneth Hobson]

See my comments for what 10 and 13 means.

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 10 And InStr(TextBox1.Value, vbLf & vbLf) > 0 Then _
    TextBox1.Value = Replace(TextBox1.Value, vbLf & vbLf, vbLf)
  '10=vbLf, 13=vbCr (When MultiLine=True and EnterKeyBehaviour=True)
End Sub

Private Sub TextBox1_Change()
  'TextBox1.Value = Replace(TextBox1.Value, vbLf & vbLf, vbLf)
End Sub

 

[sharky12345]

Thanks guys - I've tried your suggestion Kenneth and it works fine.

Many thanks.