Información ComboBox de Word pasarlo a Text con VBS! URGENTE

Buenos Días!!

Que pena la molestia tengo un problema urgente que no se como solucionarlo.

Tengo un formulario en word (.doc) donde existe un campo llamado Function, este campo es un ComboBox donde el usuario puede seleccionar entre varias funciones; así mismo tengo otro campo para que el usuario ingrese el nombre.

Mi problema es que tengo una aplicación que pasa la información del archivo .doc a .txt, pero como tengo el código solo me esta pasando la información que esta como texto y no la que esta dentro del combobox.

El código es:

Set objWord = CreateObject("Word.Application")
Set fso = CreateObject("Scripting.FileSystemObject")

Set docWord = objWord.Documents.Open(vPathDocFile)
docWord.SaveAs vPathTmp, 2 , False, "", True, "", False, False, False, False, False
docWord.Close

Donde vPathDocFile es la ruta donde tengo el archivo word y vPathTmp es la ruta donde quiero guardar el archivo txt.

Por favor agradezco mucho la ayuda urgente!!