[VB.NET]将VB中文档写入Word时出现的错误，帮忙解决一下，谢谢

<script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
将VB中文档写入Word时出现的错误，帮忙解决一下，谢谢
with word
.Selection.Font.Name = CmbFont.List(I)
.Selection.Font.Size = TxtShow.FontSize
.Selection.Font.Color = TxtShow.ForeColor
.Selection.Font.Bold = IIf(ChkBold.Value = 1, True, False)
.Selection.Font.Italic = IIf(ChkItalic.Value = 1, True, False)
.Selection.Font.Underline = IIf(ChkUnderline.Value = 1, True, False)
.Selection.ParagraphFormat.Alignment = CmbAgmt.ListIndex
.Selection.TypeText TxtShow.Text
end with
运行时候，弹出错误： "实时错误‘5148’数字必须介于0和9之间 "
请问如何解决？或者麻烦说下改从哪些方面去查错。谢谢
__________________________________________________________________________
没人知道吗？很急啊。。拜托了
__________________________________________________________________________
先跟踪定位到哪句有问题吧
__________________________________________________________________________
可以肯定不是你给出的代码的问题~
__________________________________________________________________________
.Selection.ParagraphFormat.Alignment = CmbAgmt.ListIndex
跟踪定位说是这句的问题。。。。
麻烦大家帮忙看看。
__________________________________________________________________________