简单，思路：
樊城网站建设公司成都创新互联公司,樊城网站设计制作，有大型网站制作公司丰富经验。已为樊城上千余家提供企业网站建设服务。企业网站搭建\外贸网站制作要多少钱，请找那个售后服务好的樊城做网站的公司定做！
1、将每行数据放到数组
2、把”：“作为分隔符拿到你想要的字符串
程序如下：
dim ArrTemp() as string
ArrTemp=split(你的这堆字符,vbcrlf)
dim i as int
dim ArrTemp1() as string
for i=0 to ubound(ArrTemp)
ArrTemp1=split(ArrTemp(i),"：")
msgbox left(ArrTemp1(1),len(ArrTemp1(1))-1)
next
VB内部采用Unicode编码，在这种编码格式下，任何字符（包括半角的字母、数字、符号以及全角的汉字、符号）都是占用两个字节的。因此，Len("1111徐")的返回值是5，表示5个字符，而LenB("1111徐")的返回值是10，表示占用10个字节。
要想按ANSI编码格式来获取字符串的字节数，必须这样：
LenB(StrConv("1111徐", vbFromUnicode))
要注意哦，虽然返回值是6，但这个数与这个字符串在内存中的实际占用字节数是不相符的哦！
Imports System.Text.RegularExpressions
'------
Dim text As String = "C:\Users\Administratorping 10.0.0.172 -n 1 Pinging 10.0.0.172 with 32 bytes of data: Reply from 10.0.0.172: bytes=32 time=122ms TTL=64 Ping statistics for 10.0.0.172: Packets: Sent = 1, Received = 1, Lost = 0 (0% loss), Approximate round trip times in milli-seconds: Minimum = 1ms, Maximum = 1ms, Average = 1ms C:\Users\Administrator"
Dim re As New Regex("(?=time=)\d+(?=ms)")
Debug.WriteLine(re.Match(text))