去空格
Private Sub CommandButton2_Click()
Dim str0 As String
Dim str1 As String
Dim temps As String
Dim length As Integer
Dim i As Integer
str0 = TextBox3.Text
length = Len(str0)
For i = 1 To length
temps = Mid(str0, i, 1)
If temps <> " " Then
str1 = str1 & temps
End If
Next
TextBox1.Text = str1
End Sub