I cannot get this one to execute, please help me execute this statement. Its not displaying AAAAA if it compares the string B3000.

If If Audit = "B3000:," Or Audit = "B3001:," Or Audit = "B3002:," Or Audit = "B3004:," Or Audit = "B3006:," Then
      'line4, where, Audit: ScriptingText(2) = Right(Trim(Audit), 79)
      ScriptingText(3) = "AAAAAAAAAAAAA"
Any help would be appreciated.