Visual Basic - CUADRO TEXTO

AMIGOS:

TENGO UN CUADRO DE TEXTO (MULTILINEA) ASI:

12548989665
12787898989

25454545454
54545454545
54744545555

54545454789

COMO LE HAGO PARA QUE QUEDE ASI:

12548989665
12787898989
25454545454
54545454545
54744545555
54545454789

QUE BORRE LAS LINEAS EN BLANCO

Para este ejemplo se ocupan 2 TextBox y un Boton

Private Sub Command1_Click()
cadena = ""
For i = 1 To Len(Text1)
If Mid(Text1, i, 1) <> Chr(10) And Mid(Text1, i, 1) <> Chr(13) Then
cadena = cadena & Mid(Text1, i, 1)
Else
If cadena > "" Then
Text2 = Text2 & cadena & vbCrLf
End If
cadena = ""
End If
Next i
End Sub

En Text2 ya queda ordenado sin espacios