Define missing for all numeric variables

'Define Missing values for all numerics	
'From: Rafael Osorio (usenet Fri, 25 Feb 2000)

Sub Main
	
	Dim i As Integer
	Dim info As ISpssInfo
	
	Set info = objSpssApp.SpssInfo

	For i = 0 To Info.NumVariables - 1

		If Info.VarType(i) = 0 Then
			
			objSpssApp.ExecuteCommands "MISSING VALUES " &Info.VariableAt(i) &" (-8,-9)." , False
		
		End If
				
	Next

End Sub