怎样缩短这个语句？

Question

MS1.TextMatrix(i, 6) Like "*10/*" Or MS1.TextMatrix(i, 6) Like "*20/*" Or MS1.TextMatrix(i, 6) Like "*30/*" Or MS1.TextMatrix(i, 6) Like "*40/*" Or MS1.TextMatrix(i, 6) Like "*50/*" Or MS1.TextMatrix(i, 6) Like "*60/*" Or MS1.TextMatrix(i, 6) Like "*70/*" Or MS1.TextMatrix(i, 6) Like "*80/*" Or MS1.TextMatrix(i, 6) Like "*十三边*" Or MS1.TextMatrix(i, 6) Like "*涤带*"

Answer 1

s=ms1.textmatrix(i,6)
if mid(s,2,2)>="*10/*" and mid(s,2,2)<="*80/*" and right(s,2) like "/*" or s Like "*十三边*" Or s Like "*涤带*"

Answer 2

有点问题，这样写应该更好
s=ms1.textmatrix(i,6)
if mid(s,2,2)>="*10/*" and mid(s,2,2)<="*80/*" and right(s,3) like "0/*" or s Like "*十三边*" Or s Like "*涤带*"

Answer 3

好像问题更大了，再写一次
s=ms1.textmatrix(i,6)
if left(s,2)>="*1" and left(s,2)<="*8" and right(s,3) like "0/*" or s Like "*十三边*" Or s Like "*涤带*"

Answer 4

Dim a, i, b, f As Boolean
a = Array("*10/*", "*20/*", "*30/*", "*40/*", "*50/*", "*60/*", "*70/*", "*80/*", "*十三边*", "*涤带*")
b = MS1.TextMatrix(i, 6)
For i = 0 To UBound(a)
    If b Like a(i) Then f = True: Exit For
Next

Answer 5

dim b
b = MS1.TextMatrix(i, 6)
if b like"*[1-8]0/*" or b Like "*十三边*" or b Like "*涤带*" then