Sub Main
	
	Dim SurferApp As Object
	Set SurferApp = CreateObject("Surfer.Application")
	SurferApp.Visible = True

	Dim Plot As Object
	Set Plot = SurferApp.Documents.Add

	DataFile$ = GetFilePath$("","*",,"Select Grid File",)

	Dim MapFrame As Object
	Set MapFrame = Plot.Shapes.AddContourMap(GridFileName:=DataFile$)

End Sub