After your Set RecSet = com.Execute, you now have the returned data in a recordset. You want to iterate through the recordset and write out the data to an Excel range. Something like this:
For i = 1 To RecSet.RecordCount
rng.offset(i,0) = RecSet.FieldValue("Test_ID")
rng.offset(i,1) = RecSet.FieldValue("Test_Name")
rng.offset(i,2) = RecSet.FieldValue("Country")
RecSet.Next
Next