Sub ImportFromExcel

        'start new instance of mappoint
        Dim objApp As New MapPoint.Application
        Dim objDataSet As MapPoint.DataSet

        'Set up the application
        objApp.Visible = True
        objApp.UserControl = True


        'Let user create a data map
        'This opens the import wizard. 
        'You can then choose an excel file.
        objDataSet = objApp.ActiveMap.DataSets.ShowImportWizard()

        'This just helps demonstrates the example
        Dim oBox As MessageBox
        oBox.Show("Quit", "Quit")
    

        objApp.Quit()
       
 End Sub