以下是引用梦幻倩影在2016-12-16 10:50:17的发言：

InStr([start, ]string1, string2[, compare])

返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。

以下是引用不说也罢在2016-12-16 18:53:02的发言：

        Dim ss As String = "1,1,1,1,0,1,0,0,1,0,1,1,0,1,1"
        Dim ii As Integer = 0
        For i As Integer = 0 To ss.Replace(",", "").Length - 1
            If ss.Replace(",", "").Substring(i, 1) = "0" Then
                ii += 1
                MsgBox("第" & i + 1 & "位是个0")
            End If
        Next
        MsgBox("一共有" & ii & "个0")