Загрузить данные и показать значения переменных во всплывающем окне

'Скрипт демонстрирует обращение к данным в открытом файле.
Sub Main
	Dim objDocuments As ISpssDocuments
    Dim objDataDoc As ISpssDataDoc
	Dim strCmd As String
	strCmd = "GET FILE='c:\\Program Files\\SPSS\\Employee data.sav'."
	objSpssApp.ExecuteCommands strCmd , True
		
    Set objDocuments=objSpssApp.Documents
    Set objDataDoc = objDocuments.GetDataDoc(0)

    ' Получаем данные в указанном диапазоне в текстовом виде:
    Dim SpssTextData As Variant
    SpssTextData = objDataDoc.GetTextData ("salary", "jobtime", 1, 2)
    MsgBox "Значение Salary для первого наблюдения: " & SpssTextData(0,0)
    MsgBox "Значение Jobtime для второго наблюдения: " & SpssTextData(2,1)

End Sub