Jeff, 
  
 I take over this issue and I tested the code Gary and you mentioned above, the result is POLYGON((-93.4420849566762 45.3331642259208,-93.8204295819603 45.0665697648231,-93.6394821524719 44.6779839276563,-92.827960347519 44.6194697602057,-92.5208980429358 44.8492849385599,-92.7292617496211 45.2675974991315,-93.4420849566762 45.3331642259208)) , I think it’s decimal degree unit. Below is my test code: 
         Dim wkt = “POLYGON((-10401925.316039 5674124.7595165,-10444042.44707 5632007.6284856,-10423899.471359 5570968.3081509,-10333561.277264 5561812.4101007,-10299379.257876 5597825.6090981,-10322574.199604 5663748.0750595,-10401925.316039 5674124.7595165))” 
         Dim proj4 As New Proj4Projection 
         Dim MyBaseShape As ThinkGeo.MapSuite.Core.BaseShape = BaseShape.CreateShapeFromWellKnownData(wkt) 
         proj4.InternalProjectionParametersString = Proj4Projection.GetDecimalDegreesParametersString 
         proj4.ExternalProjectionParametersString = Proj4Projection.GetGoogleMapParametersString 
         proj4.Open() 'NEEDED TO ADD THIS LINE TO CALL THE NEXT  
         Dim result As BaseShape = proj4.ConvertToInternalProjection(MyBaseShape) 
         MessageBox.Show(result.GetWellKnownText()) 
  
 Thanks, 
 James