请教各位大侠：（例如869552）我想分别取出前两位、中间两位和最后两位（86，95，52）应该用什么函数呢？

取前n个用Left:
MSDN解释:
Left 函数示例
本示例使用 Left 函数来得到某字符串最左边的几个字符。
Dim AnyString, MyStr
AnyString = "Hello World" ' 定义字符串。
MyStr = Left(AnyString, 1) ' 返回 "H"。
MyStr = Left(AnyString, 7) ' 返回 "Hello W"。
MyStr = Left(AnyString, 20) ' 返回 "Hello World"。

取后n个用Right:
MSDN解释:
Right 函数示例
本示例使用 Right 函数来返回某字符串右边算起的几个字符。
Dim AnyString, MyStr
AnyString = "Hello World" ' 定义字符串。
MyStr = Right(AnyString, 1) ' 返回 "d"。
MyStr = Right(AnyString, 6) ' 返回 " World"。
MyStr = Right(AnyString, 20) ' 返回 "Hello World"。

取中间n个用Mid:
Mid 函数
返回 Variant (String)，其中包含字符串中指定数量的字符。
语法
Mid(string, start[, length])
Mid 函数的语法具有下面的命名参数：

部分 说明
string 必要参数。字符串表达式，从中返回字符。如果 string 包含 Null，将返回 Null。
start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数，Mid 返回零长度字符串 ("")。
length 可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。

说明
欲知 string 的字符数，可用 Len 函数。
注意 MidB 函数作用于字符串中包含的字节数据，如同在双字节字符集(DBCS)语言中一样。因此其参数指定的是字节数，而不是字符数。对于使用 MidB的示例代码，请参阅示例主题中的第二个示例。

明白了吧

86=Left("869552",2)=Mid("869552",1,2)
95=Mid("869552",3,2)
52=Right("869552",2)=Mid("869552",5,2)

如果我的数字是8600950052呢？我还是想取前两位、中间两位和最后两位（86，95，52）
86＝Left("8600950052",2)
95＝Mid("8600950052",len("8600950052")\2,2)
52＝Right("8600950052",2)
如果是奇位数好像没有中间两位数。

版主说的更普遍一点

想当清楚~~多谢