标题：字符串函数操作
适用类：可能会在进销存之类的数据库软件中用到。
编译工具：Visual Basic6.0
界面：

控件集：一个Text文本框，6个Command按钮，1个Frame框架，几个讲解性的Label标签
代码：（包括注释+讲解）

'***************************************************
'因为我个人也是一个菜鸟，所以有些代码是来自不同的教材中
'不著明版权，学习交流之用
'发布在https://bbs.bccn.net/编程论坛。
'***************************************************

Dim a As String                   '定义a为字符串型变量，在此处声明的本窗体均可调用，这一部分可以参考作用域
Dim Number As Integer             '定义Number为整型变量
Private Sub CommandLeft_Click()
On Error GoTo Wrong1          '设置错误捕获程序
Number = InputBox("请定义从左边开始共截取几个字符串。", "左截取定义", 3)
Rem   输入相关内容
a = Text1.Text          '将text文本框中的文本赋值给a
MsgBox "从左边开始截取" & Number & "个字符后的值为：" & Left(a, Number), vbOKOnly + vbInformation, "Left函数"
Rem   交互设计
If Error = 13 Then       '当错误代码为13（即Inputbox输入框选择取消，或内容为空时）触发。
   GoTo Wrong1
Wrong1:
   End If
End Sub

Private Sub CommandLTrim_Click()
a = Text1.Text            '将text文本框中的文本赋值给a
MsgBox "删除左端空格（LTrim转换后）函数值为：" & LTrim(a), vbOKOnly + vbInformation, "LTrim函数"
Rem   交互设计
End Sub

Private Sub CommandMid_Click()
On Error GoTo Wrong1          '设置错误捕获程序
Dim Start As Integer          '定义Start为整型变量，在Click事件中声明的变量，仅仅可以用在本事件中
a = Text1.Text                '将text文本框中的文本赋值给a
Start = InputBox("请定义从左边开始第几个字符串位置开始截取。", "开始位置取定义", 3)
Number = InputBox("请定义从左边开始共截取几个字符串。", "左截取定义", 3)
Rem   输入相关内容
MsgBox "从第" & Start & "个字符串位置开始截取，共截取" & Number & "个字符串后，返回函数值为：" & Mid(a, Start, Number), vbOKOnly + vbInformation, "Mid函数"
Rem   交互设计
If Error = 13 Then       '当错误代码为13（即Inputbox输入框选择取消，或内容为空时）触发。
   GoTo Wrong1
Wrong1:
   End If
End Sub

Private Sub CommandRight_Click()
On Error GoTo Wrong1              '设置错误捕获程序
Number = InputBox("请定义从右边开始共截取几个字符串。", "左截取定义", 3)
Rem   用Inputbox输入框给整型变量Number赋值
a = Text1.Text       '将text文本框中的文本赋值给a
MsgBox "从左边开始截取" & Number & "个字符后的值为：" & Right(a, Number), vbOKOnly + vbInformation, "Right函数"
Rem   交互设计
If Error = 13 Then      '当错误代码为13（即Inputbox输入框选择取消，或内容为空时）触发。
   GoTo Wrong1
Wrong1:
   End If
End Sub

Private Sub CommandRTrim_Click()
a = Text1.Text        '将text文本框中的文本赋值给a
MsgBox "删除右端空格（RTrim转换后）函数值为：" & RTrim(a), vbOKOnly + vbInformation, "RTrim函数"
Rem   交互设计
End Sub

Private Sub CommandTrim_Click()
a = Text1.Text             '将text文本框中的文本赋值给a
MsgBox "删除所有空格（Trim转换后）函数值为：" & Trim(a), vbOKOnly + vbInformation, "Trim函数"
Rem   交互设计
End Sub

Private Sub Form_Load()

End Sub

程序：


大家对代码有任何疑问都可以提出，能帮助大家的一定帮助。
其他相关实例：
[源代码分享计划]（一）Visual Basic文件操作程序：https://bbs.bccn.net/thread-444084-1-1.html
[源代码分享计划]（二）瑞星个人客户服务系统：https://bbs.bccn.net/thread-444553-1-1.html
菜鸟谈一谈Visual Basic6.0编程之路：https://bbs.bccn.net/thread-443945-1-1.html
甜橙计算软件，给VB初学者好的例子。：https://bbs.bccn.net/thread-426678-1-1.html