去掉text中每行最左边的空格

Dim S As Long, nStr As String
'去掉左边用 LTrim ，去掉右边用 RTrim，两边都去掉用 Trim
nStr = Trim(Text1.Text)
S = 1
Do
S = InStr(S + 1, nStr, vbCrLf)
If S = 0 Then Exit Do
'去掉左边用 LTrim ，去掉右边用 RTrim，两边都去掉用 Trim
nStr = Left(nStr, S - 1) & Trim(Mid(nStr, S + 2))
Loop
Text1.Text = nStr

如果不需要空格的话，用text1=replace(text1," ","")替换掉空格，如果前面的空格不一样多的话，多替换几次就行了

还可把text的内容读取的数组，再ltrim，不过，这样麻烦！

Dim MyStr As String, Arr
MyStr = Text1.Text
Arr = Split(MyStr, Chr(13) + Chr(10))
MyStr = LTrim(Arr(0))
For i = 1 To UBound(Arr)
MyStr = MyStr & Chr(13) & Chr(10) & LTrim(Arr(i))
Next i
Text1.Text = MyStr
'去掉左边用 LTrim ，去掉右边用 RTrim，两边都去掉用 Trim