Private Sub Command1_Click()
    Text1.Text = 删除左右无用字符(Text1.Text)
End Sub

Public Function 删除左右无用字符(ByVal 文本 As String) As String '包括换行符和Tab空格符
    Do While Left(文本, 1) = Chr(13) Or Left(文本, 1) = Chr(10) Or Left(文本, 1) = Chr(32) Or Left(文本, 1) = Chr(9)
        文本 = Right(文本, Len(文本) - 1)
    Loop
    Do While Right(文本, 1) = Chr(13) Or Right(文本, 1) = Chr(10) Or Left(文本, 1) = Chr(32) Or Left(文本, 1) = Chr(9)
        文本 = Left(文本, Len(文本) - 1)
    Loop
    删除左右无用字符 = 文本
End Function