Word forms & combo boxes

I created a form in word that has four combo boxes used in it. Here's the problem when the form is submitted everything it my combo boxes changes back to the first item on the list. I was wondering if maybe something is wrong with vba code. Can someone please take a look & let me know if they see an issue.

Private Sub Document_Open()
With ComboBox1
.AddItem "bird"
.AddItem "dog"
.AddItem "cat"
.ListIndex = 0
End With

With ComboBox2
.AddItem "New (CIA)"
.AddItem "Change (CIA)"
.AddItem "Obsolete (CIA)"
.AddItem "Repair (NO CIA)"
.AddItem "Re-Order (NO CIA)"
.AddItem "Request (NO CIA)"
.AddItem "type (NO CIA)"
.ListIndex = 0
End With

With ComboBox3
.AddItem "Fix"
.AddItem "Gag"
.AddItem "Special"
.AddItem "Other"
.AddItem "Over"
.ListIndex = 0
End With

With ComboBox4
.AddItem "Atl"
.AddItem "Bryan"
.AddItem "Cap"
.AddItem "CD"
.AddItem "Col"
.AddItem "Dyn"
.AddItem "Gal"
.AddItem "G5"
.AddItem "Int"
.AddItem "NI"
.AddItem "Or"
.AddItem "Pre"
.AddItem "Py"
.AddItem "Pr"
.AddItem "Scep"
.AddItem "SI"
.AddItem "T2"
.AddItem "TS"
.AddItem "Van"
.AddItem "Ven"
.AddItem "Ver"
.AddItem "Zep"
.AddItem "Zp"
.AddItem "Type"
.AddItem "N/A"
.ListIndex = 0
End With

End Sub

Thank you,
Grubbs