I commented that part but now it is throwing the same error at "CreateObject("Mappoint.Application")"

''''''Set objApp = GetObject(, "MapPoint.Application")
If objApp Is Nothing Then
Set objApp = CreateObject("Mappoint.Application")
Set MyMap = objApp.OpenMap("C:\ITMS\MAPSHARE\ITMS.PTM")
If (MyMap Is Nothing) Then
Set MyMap = objApp.NewMap()
End If
Else