not equal symbol in b4a?

If EditText1.Text.Contains("all") = False Then

If EditText1.Text.Contains("all") <> True Then

If Not(EditText1.Text.Contains("all")) Then

if New.CharAt(A) <> "0" Then

    Dim new As String = "0Hallo0 0world0"
    For A = 0 To new.Length-1
        If new.CharAt(A) <> "0" Then
            Log(new.CharAt(A))
        End If
    Next

Sub edtPattern_TextChanged (Old As String, New As String)
    'zmienna pomocnicza
    Dim A As Int
   
    For A=0 To New.Length -1
     If New.CharAt(A) <> "0" AND New.CharAt(A) <> "1" Then
       Log("ERROR")
        edtPattern.Text = Old
       Exit
     End If
    Next
   
   
End Sub