Create MsgType.vb