怎么用VB编写一个程序，让文本框里面的内容，每一行开头都加空格？

重复问题，VB文本框中的换行是两个字符chr(13) & chr(10)，编程读取其中的每一个字符，直到有换行的时候，在后边加数需要的空格数量的可以了。

下面的程序我已经调试通过（窗体中放置一个文本框和一个命令按钮）：

Private Sub Command1_Click()
Dim CR As String, Strout As String, Tmp As String, I As Long
Tmp = Text1.Text
If Len(Tmp) < 2 Then Exit Sub
Strout = Space(2)
CR = Chr(13) & Chr(10)
Do While Len(Tmp) <> 0
I = InStr(Tmp, CR)
If I <> 0 Then
Strout = Strout & Left(Tmp, I + 1) & Space(2)
Tmp = Mid(Tmp, I + 2)
Else
Exit Do
End If
Loop
Strout = Strout & Tmp
Text1 = Strout
End Sub

你到www.csdn.net上找找很多资料的