a = "10kV镇东线5566开关"
开始位置 = InStr(a, "线")
TracePrint 开始位置
b = mid(a, 开始位置)
TracePrint b
c = Lib.算法.提取字串符中所有数字(b)
TracePrint c

用正则最好，你可以研究研究

正则或者自己写字符串算法

///////////////////////
a = "10kV镇东线5566开关"
TracePrint 正则表达式搜索(a, "\d\d\d+")
Function 正则表达式搜索(字符串,元字符)
Dim regEx, Matches, Match
set regEx = New RegExp
regEx.[Global] = TRUE
regEx.IgnoreCase = FALSE
regEx.pattern = 元字符
Set matches = regEx.execute(字符串)
For Each Match In Matches
正则表达式搜索 = 正则表达式搜索 & Match
next
End Function

我知道的是python语言，它的正则很好学习。而且处理数据分析很方便。

没想到发愁了半个月的我，在这里发出帖子，一两天就解决了，看到这么多大神耗费时间和精力来帮助我，在这里又重新感觉到了失传很久的人间真爱，无私的奉献最伟大，希望我和大家一起，在按键精灵的世界里，让人性更美好。

我是在编辑变电站操作自动出票辅助程序，我们被要求写票一定要迅速，迅速到，从接受到命令开始，立刻写出操作票来，越快越好，快到那种你就算有十个手忙活，也还闲你慢的那种，而且还要求，必须100%准确，就算错一个汉字，或者一个标号字符，就要扣300元的那种。这时候，如果有个辅助软件，将大大提高准确性和效率性，期待中，如果有共同专业的兴趣爱好，欢迎大家一起探讨，做出更实用的辅助程序......

楼主可以一起研究研究