[Resolvido]Localizar String usando o tipo de caractere!

Boa Noite amigos, tenho alguns conhecimentos sobre manipulação de strings mais me deparei com uma situação em que não estou conseguindo resolver, preciso extrair um CEP dentro de um Script que está dentro de uma string, sendo que não sei qual é o cep, se soube-se seria bastante simples, preciso saber se tem uma sequencia de caracteres no formato #####-###, caso tenha localizar em que parte da string ele inicia e extrai-lo para outro local, segue a baixo uma string de exemplo, ficaria grato se alguém soubesse qual função em VBA faz essa comparação e informa a localização da substring.

null,null,null,\"Arena das Dunas - Lagoa Nova, Natal - RN, 59063-400\",null,null,null,null,null,null

Código:


null,null,null,null,null,null,null,null,null,null,null,null,1,null,null,null,1,null,8]\n,null,null,null,1,null,null,null,null,null,1]\n,null,null,null,null,null,
null,[null,[392,106]\n]\n,[null,[203,100]\n,[null,4,null,null,1]\n,null,null,[[[86,86]\n,[408,200]\n]\n]\n,[[[1,0,3]\n,[2,1,2]\n,[2,0,3]\n,[3,0,3]
\n,[8,0,3]\n,[3,1,2]\n,[9,1,2]\n,[10,0,3]\n,[10,1,2]\n,[10,0,4]\n]\n,1,null,1]\n,null,0]\n,null,[\"zA3QWoSHNcL
QS_8o7ABA\",null,null,null,null,null,81,null,null,null,null,null,null,[null,null,\"zA3QWoSHNcL-wQS_8o7ABA\"]\n,9937]\n,null,[null,1,null,null,
[null,1,1,null,1,1]\n,null,null,null,null,[null,null,null,null,null,null,null,3]\n,null,null,null,
[null,null,1]\n,null,null,1,null,null,null,null,null,null,1,1,1,null,null,null,[null,1]\n,null,null,null,null,null,1]\n,null,[null,[80,92]\n]\n,null,null,null,
[[[[0,0]\n,[458,768]\n]\n,[[974,0]\n,[1024,768]\n]\n,[[0,0]\n,[1024,20]\n]\n,[[0,748]\n,[1024,768]\n]\n]\n]\n,null,null,null,
[null,null,1,1,null,1]\n,null,null,[81]\n,null,null,null,null,1,null,null,null,null,null,null,[null,null,1]\n]\n",")]}'\n[[\"arena ds dunas\",
[[null,null,null,null,null,null,null,null,\"zQ3QWtqhAcL-wQS_8o7ABA\",\"0ahUKEwiavNa0krbaAhVCf5AKHT-5A0gQmBkIAigA\",null,null,null,null,
[\"zQ3QWtqhAcL-wQS_8o7ABA\",\"0ahUKEwiavNa0krbaAhVCf5AKHT-5A0gQ8BcIAygAMAA\",[\"Lagoa Nova\",\"Natal - RN\",\"[b][color=#ff3300]59063-400[/color][/b]\"]\n,[\"(84)
3673-6800\"]\n,[null,null,null,[\"http://www.google.com.br/search?q\\u003dArena+das+Dunas+-+Lagoa+Nova,+Natal+-+RN,+59063-
400\\u0026ludocid\\u003d9906452446042739012#lrd\\u003d0x7b2ff89610fd765:0x897aca0356ad5144,1\",\"3.838
comentários\",null,\"0ahUKEwiavNa0krbaAhVCf5AKHT-5A0gQ6W4ICygAMAA\"]\n,null,null,null,4.5,3838]\n,null,null,
[\"http://arenadunas.com.br/\",\"arenadunas.com.br\",null,null,\"1,AOvVaw1OaM5aU5ey_9RDeajsQgQJ,,0ahUKEwiavNa0krbaAhVCf5AKHT-
5A0gQ61gIDCgHMAA,,\"]\n,null,[null,null,-5.8270108,-35.2123979]\n,\"0x7b2ff89610fd765:0x897aca0356ad5144\",\"Arena das Dunas\",
null,[\"Estádio de futebol\"]\n,\"Lagoa Nova\",null,null,null,\"Arena das Dunas - Lagoa Nova, Natal - RN, 59063-400\",null,null,null,null,null,null,
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,[[[1]\n,\"Favoritos\"]\n,[[2]\n,\"Quero ir\"]\n,[[4]\n,\
"Lugares marcados com estrela\"]\n]\n]\n,null,\"https://www.google.com/maps/place/Arena+das


Boa noite,

Código:

Public Sub Pos_CEP(txt As String)

Dim i As Integer
Dim achou As Boolean

achou = False

For i = 1 To Len(txt) - 8
    If Mid$(txt, i + 5, 1) = "-" And IsNumeric(Mid$(txt, i, 5)) And IsNumeric(Mid$(txt, i + 6, 3)) Then
        achou = True
        Exit For
    End If
Next i

If achou Then MsgBox "O CEP inicia na posição: " & i Else MsgBox "CEP não localizado"

End Sub


Muito obrigado amigo, a velha e boa lógica de programação, perfeito, resolveu meu problema!