定位指定字符在字符串中第N次出现的位置

VBA中的Instr函数可以查找指定字符首次出现的位置，但是有时需要查找的字符第N此出现的位置，VBA并没有提供可以支持这个功能的函数。
实例：查找字符串A123-B1234-C12345-D12345中减号第3次出现的位置。

方法1：
Sub Demo1()
msg = "A123-B1234-C12345-D12345"
cnt = 0
nth_pos = 3
For i = 1 To Len(msg)
If Mid(msg, i, 1) = "-" Then
cnt = cnt + 1
If cnt = nth_pos Then
MsgBox "定位位置：" & i
Exit Sub
End If

定位指定字符在字符串中第N次出现的位置最先出现在Python成神之路。