vba - Kopiowanie do jednej komórki kilku textboxów niepustych

Witam

W userformie mam oprócz list kilka textboxów: textbox1, textbox2, textbox3, textbox4

Prosiłbym o pomoc w napisaniu kodu (coś w stylu pętli?), który działałaby sprawdzając wszystkie cztery textboxy i kopiował tylko te pola, w których jest tekst (pomijając puste) , dopisujący (jeśli to nie problem) vbNewLine w celu nadania małej estetyki.

Coś w stylu :
ActiveCell.Offset(0, 1).Value = textbox1.Value & vbNewLine & textbox 3.value - ( textbox 1 i 3 miał wpisane wartośći)

Dziękuję i pozdrawiam
wntsik

Witam

Dziękuję za odpowiedź

jednak coś nie do końca mi działa.. wkleiłem ten kod w jeden warunek który mam stworzony i dodałem też zmienną
Dim Ctrl As Control , jednak wartość wyrzuca mi błąd i podkreśla kod:
"If TypeName(Ctrl) = "Textbox" And Ctrl.Value <> vbNullString Then"
Nic nie kopiuje do komórki a (Ctrl) po najechaniu kursorem pokazuje wartość pierwszego labela1..

Co robię nie tak ?