[ChrisGT7]

Καλησπέρα Γιώργο,

Αφού θέσεις τις ιδιότητες MultiLine=True και EnterKeyBehavior=True του textbox, στο γεγονός του KeyDown δοκίμασε το εξής:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If TextBox1.LineCount >= 5 And KeyCode = 13 Then KeyCode = 0
End Sub