参考代码
Dim strs As String = ClipBoard.GetText '从剪切板获取模拟数据
Dim mc = System.Text.RegularExpressions.Regex.Matches(strs,"(?is)(?<=\$GNGGA).*?(?=\$)")For i As Integer = 0 To mc.count-1 msgbox(mc(i).value)Next