Visual Basic - Texto al portapapeles

Tengo un problemilla, tengo 3 textbox y meto el contenido de ellos en el portapapeles de la siguiente forma:

Clipboard.SetText Text1.Text & vbCrLf & Text2.Text & vbCrLf & Text3.Text

El problema es que si el text2 está vacío el resultado me queda de la siguiente forma:

Texto de Text1

Texto de Text3

Cuando a mi me gustaría que quedará así:

Texto de Text1
Texto de Text3

Alguna solución?

Yo lo haría con un array de TextBoxes:

Dim s As String, i As Long

For i = 0 To Text1.UBound
If Len(Text1(i).Text) Then s = s & Text1(i).Text & vbNewLine
Next i

Clipboard.SetText s

Un saludo.