vb text1.text 内容 如何每一行文字后添加个空行

Private Sub Command1_Click()
Randomize Timer
Text1.Text = RndLine(LineFilter(Text1.Text))

End Sub

Function LineFilter(ByRef T As String) As String
Dim L() As String, Le As Long, Ls As Long, Lc() As String, Lcs As Long
L() = Split(T, vbCrLf): Le = UBound(L()): ReDim Lc(Le)
For Ls = 0 To Le
If Not L(Ls) = "" Then
Lc(Lcs) = L(Ls): Lcs = Lcs + 1
End If
Next
ReDim Preserve Lc(Lcs - 1)
LineFilter = Join(Lc, vbCrLf)
End Function

Function RndLine(ByRef T As String) As String
Dim L() As String, Le As Long, Ls As Long, Ld As Long, Lt As String
L() = Split(T, vbCrLf): Le = UBound(L())
For Ls = 0 To Le
Ld = Int(Rnd * (Le + 1))
Lt = L(Ls): L(Ls) = L(Ld): L(Ld) = Lt
Next
RndLine = Join(L, vbCrLf)
End Function

text1.text 是允许多行的，现在是把空行格式化了.

我需要再以上代码完成后 每一行后添加个空行 请问各位大侠怎么弄

一句话搞定：
text1.text=Replace(text1.VbCrlf,VbCrlf&VbCrlf)

rndline = join(l, vbcrlf) 改成 rndline = join(l, vbcrlf & vbcrlf)