参考
Dim str As String = "123.343.789.ii"Dim s As String = "\."Dim mc = System.Text.RegularExpressions.Regex.Matches(str, s)msgbox(mc.count)