主题：请问老大如何截取某个字符的代码怎么写？

请问老大如何截取某个字符的代码怎么写？例如：

dim a1 As String = "abcdefghijk"

dim b1 As String

dim b2 As String

dim b3 As String

我要截取前4个

b1= abcd '截取前4个数

b2=efgh  '截取由第五个数开始截取4个

b3=hijk   '截取后面4个数

请问老大代码应该怎么写啊？

SubString

返回从指定位置开始指定长度的子字符串。

语法：

SubString(StartIndex)
SubString(StartIndex, Length)

参数：

如果忽略长度，则返回自指定位置开始的所有字符串。

例如：

输出结果为：

s2 = 人民共和国
s3 = 人民共

呵呵，非常感谢大家！

其实严谨一下应该先判断一下，否则容易出错。

Dim a1,b1,b2,b3 As String
a1 = "abcdefghijk"
If a1.Length<8 Then
    MessageBox.Show("长度不够")
Else
    b1=left(a1,4)
    b2 = a1.Substring(4,4)
    b3 = right(a1,4)
    Output.Show(b1)
    Output.Show(b2)
    Output.Show(b3)
End If