VB有没有函数返回一个字符串,指定一个字符串某个值之前和之后的内容.

给你一个过程，按你提供的参数设计
一、调用
Dim a, b
a = "你好,很好"
b = aa(",", a, 1)

二、过程
Function aa(a, b, c)
Dim i, s, tmp
i = InStr(b, a)
If i > 0 Then
If c = 0 Then 'c=0表示取前部分
aa = Left(b, i - 1)
Else 'c<>0表示取后部分
aa = Mid(b, i + 1)
End If
End If
End Function

没有。只要split函数，分隔成数组的。
A="你好,很好"
b=split（A,","）
返回
b（0）=“你好”
b（1）=“很好”

用split 函数能实现你的功能,不过格式不一样

A="你好,很好"
s=split(A,",")

结果就是:
s(0)="你好"
s(1)="很好"

如果你有多个信息,以","为分隔符,那么s(0) s(1) s(2) .... 依次就是以","为分隔符返回的结果..

ubound(s)返回上界 lbound(s)返回下界