手機號碼，且以1為開始的
x=“手機號”
If?IsNumeric(x)?And?Len(x)?=?11?And?Left(x,?1)?=?1?Then
MsgBox?"手機號正確:"?&?x
Else
MsgBox?"號碼錯誤"
End?If