GoTo以外を使ってFor文の処理を飛ばしたい

Question

前提・実現したいこと

配列　var1　と　var2　の要素を一つずつ比較しています。
var1の要素が「特定の文字列」の時は比較せず処理を飛ばしたいです。
①比較して一致したとき
②var1(i)が特定の文字列だったとき

①②のときカウントし、最後にカウントした数が要素数と一致すればコメントが表示されます。
GoTo文を使わずにFor文の処理を飛ばしたいのですがどのように変更すればよいでしょうか。
また、この処理で問題があれば教えていただきたいです。

該当のソースコード

Sub test()
    Dim i As Integer
    Dim j As Integer
    Dim cnt As Integer
    Dim var1(2) As Variant
    Dim var2(2) As Variant
    
    var1(0) = "a"
    var1(1) = "特定の文字列"
    var1(2) = "b"
    var2(0) = "a"
    var2(1) = "ccccc"
    var2(2) = "b"
    
            For j = LBound(var1) To UBound(var1)
            If var1(j) = "特定の文字列" Then
            Else
                If var1(j) = var2(j) Then
                    cnt = cnt + 1
                End If
            End If
'            cnt = cnt + 1
        Next j

            If UBound(var1) = UBound(var2) And UBound(var2) = cnt Then
                MsgBox "配列は一致しています"
            Else
                MsgBox "配列は一致しません"
            End If
End Sub

補足情報（FW/ツールのバージョンなど）

配列の比較は出来ましたが、"特定の文字列"の時カウントできていません。

Comments

[退会済みユーザー]

"特定の文字列"が一つ存在すれば、全件不一致でも"配列は一致しています"が表示されるように見受けられますが、それでよろしいのですか？

Answer 1

Sub test()
    Dim j As Integer
    Dim cnt As Integer
    Dim var1(2) As Variant
    Dim var2(2) As Variant    
    var1(0) = "a"
    var1(1) = "特定の文字列"
    var1(2) = "b"
    var2(0) = "a"
    var2(1) = "ccccc"
    var2(2) = "b"
    For j = LBound(var1) To UBound(var1)
        If var1(j) = "特定の文字列" Or var1(j) = var2(j) Then
            cnt = cnt + 1
        End If
    Next j
    If UBound(var1) = UBound(var2) And UBound(var2) + 1 = cnt Then
        MsgBox "配列は一致しています"
    Else
        MsgBox "配列は一致しません"
    End If
End Sub

Comments

[kanata0214]

Orを使用すれば良かったのですね、修正依頼頂いたことで処理をきちんと理解することができました。
ありがとうございました！

Answer 2

質問に記載されているコードと同じ処理内容で、Gotoを使わない実装ということであれば
これでいいじゃないですかね。
ループ内の処理のみ抜粋しています。

                    If var1(i) = "特定の文字列" Then
                    Else
                        If var1(i) = var2(j) Then
                            cnt = cnt + 1
                        End If
                    End If
                    cnt = cnt + 1