حذف فاصله ی عمودی در text box

[saeedvir]

سلام

چه طوری میشه همه ی فاصله های عمودی بین یه متن در text box را حذف کرد ؟
مثلا :
متن داخل text box به صورت زیر هست :

کد:

1

2
3


5
6

می خواهم به

کد:

1
2
3
4
5
6

تبدیل کنم


لطفا کمک کنید

[CRazYFULL]

کد:

Private Sub Command1_Click()
Text1 = Replace(Text1, vbNewLine & vbNewLine, vbNewLine)
If InStr(Text1, vbNewLine & vbNewLine) > 0 Then Command1_Click
End Sub