Ok i seem to be making some progress with using
oPorts = CreateObject("GarXface4.ComPortNames")-------Works Ok

oGps = CreateObject("GarXFace4.Gps")--------Does Not Work????

oGarmin = CreateObject("GarXFace4.Gps")--------Works Ok.

Well I think I can get it from here. Thanks everybody and I will check back.