VBScript and ConnectedSubmit when sending faxes

I am using VBScript to send a fax, and I'm following the sample code
given in the Platform SDK:

Set doc=CreateObject("FaxComEx.FaxDocument")
Set server=CreateObject("FaxComEx.FaxServer")
Dim JobID
server.Connect ""
doc.Body="c:\x.tif"
doc.DocumentName="Sample Fax"
doc.Recipients.Add "02076819999"
doc.Priority = 1
JobID = doc.ConnectedSubmit(server)

Everything works, and the fax is sent, but there seems no way of getting
at the content of JobID.

TypeName() reports the type as "String()" and VarType reports 8200 (an
array of vbString), but trying to refer to JobID(0) generates a type
mismatch, and trying something like Join(JobID) produces error 800A01CA
"Variable uses an Automation type not supported in VBScript".

My guess is that VBScript can't handle arrays of strings, only arrays of
Variants. Does anyone have any experience of this? Or any way round the
problem??