Textbox lege regels niet kopieeren

[pasan]

Hallo
Ik heb een textbox op een userform staan met MultiLine op true en scrollbars op verticaal
wanneer ik in de lege textbox sta en op enter druk verplaatst de cursor 1 regel naar beneden.
De textbox is nu niet meer leeg ondanks dat er niks in staat (alleen op enter gedrukt).

Hoe kan ik nu controleren of er lege regels in de textbox staan en zo ja deze niet opslaan in een cel

Bijv:
Op regel 1 staat "Hallo" en hierna 3 keer op enter gedrukt, als ik de textbox nu opsla naar een cel dan komen er 4 regels in de cel te staan.

ik wil dus alleen een regel opslaan als er daadwerkelijk tekst of getallen in staan

bij voorbaat dank voor het mee denken

 

[wampier]

Je kunt door alle regels lopen en 1 voor 1 kijken of elke regel tekst bevat?

Gebruik daarvoor de "lines" property in plaatse van de "text" property

 

[pasan]

dit is wat ik er van gemaakt heb
verbeteringen uiteraard welkom

Private Sub LegeRegels()
For Each it In Split(TextBox1.Text, vbCrLf)
If it <> "" Then msg = msg & it & vbLf
Next
TextBox1 = msg
End Sub

in VBA heb je volgens mij geen lines property