If e.PostValues("xmm").length<>6
改成
If e.PostValues("xmm") = Nothing OrElse e.PostValues("xmm").length<>6 Then