Принцип "автомата"

[Кирилл_23]

Народ, кто хорошо разбирается в вба, помогите пж. Надо довести до ума код, который работал бы по принципу "автомата". Суть: из последовательности нулей и единиц различать последовательность в 00 и чтобы выводилось что программа видит эти 00 и чтобы продолжала проверят строчку до конца.Естественно в строку можно вбивать только 1 и 0, иначе выдает ошибку.
Кто поможет?
сам код

Private Sub CommandButton1_Click()

posled = TextBox1
q = 0
i = 0
For j = 1 To Len(posled)
c = Mid(posled, j, 1)
If c <> 0 Then
If c <> 1 Then
MsgBox "Недопустимые_символы"
GoTo s3

End If
End If

Next j

For i = 1 To Len(posled)
c = Mid(posled, i, 1)
If c = 0 Then
If q = 0 Or q = 1 Then q = q + 1: GoTo s1
If q = 2 Then MsgBox "Проверка_закончена_распознано" : GoTo s2
Else
If q = 0 Then: GoTo s1
If q = 1 Then q = 0: GoTo s1
If q = 2 Then MsgBox "Проверка_закончена_распознано" : GoTo s2
End If

s1:
MsgBox "Символ=" & c
MsgBox "Состояние=" & q

Next i

s2: MsgBox "Состояние=" & q & " "
MsgBox "Не распознал"
s3:
End Sub

[Hugo121]

Смысл сего действа чисто учебный?
Потому что если нужно узнать, сколько там "00", причём в "000" 1х, то проще сделать на replace:

Sub tt()
    Dim s$
    s = "1010010001110000011"
    MsgBox (Len(s) - Len(Replace(s, "00", ""))) / 2
End Sub

[Кирилл_23]

Да,всё верно,чисто учебный.
Чуть чуть не верно в начале написал, допустим он видит цепочку из 0 и 1,начинает проверять эту цепочку, присваивает 1-0 значение,а 0-1значение,если след.0-то уже значение 2,вот так типа и видит в цепочки "00" и продолжает проверять дальше

[DiemonStar]

Вы лучше приведите несколько примеров исходных данных, и несколько примеров результирующей строки... вот мне, например, непонятно, что должно получиться в случае вот таких исходных данных: "10000000000000000000000000001"