i have the following code in Statistica 10....
and i get 10800 type mismatch.. .This code is from Statistica google analytics api (i have cut a large portion of code in order to find what goes wrong).
Note that my password has special character.This is the reason? can you suggest something?



Code:
Dim sGranularityArray(0 To 1) As String
Dim sGooglePass As String
Dim sGoogleMail As String
Dim sSessionToken As String
Dim sProfilesArray() As Variant

Sub Main

	If Not AuthenticationDialog() Then Exit Sub

End Sub

Public Function AuthenticationDialog() As Boolean

	AuthenticationDialog = True

	On Error GoTo ErrAuthenticationDialog

		Begin Dialog UserDialog 400,154 ' %GRID:10,7,1,1
			GroupBox 10,7,380,147,"Google Authentication Information",.GroupBox1
			Text 30,42,90,21,"E-Mail: ",.Text1
			TextBox 140,42,210,21,.TextBox1
			Text 30,77,90,14,"Password: ",.Text2
			TextBox 140,77,210,21,.TextBox2,-1
			OKButton 100,119,100,21
			CancelButton 220,119,80,21
		End Dialog
		Dim dlg As UserDialog

		If Dialog (dlg) Then

			sGoogleMail =  dlg.TextBox1
			sGooglePass =  dlg.TextBox2

			If sGoogleMail <> "" And sGooglePass <> "" Then		'Proceed only if user enters both a valid Google eMail address
																'and the valid associated Google eMail password

				sProfilesArray = GetGAProfiles(sSessionToken, False)

			End If
		Else
			Exit Function

		End If



	Exit Function

	ErrAuthenticationDialog:

	AuthenticationDialog = False

	MsgBox CStr("Error encountered while proc." & vbCrLf & Err.Number & vbCrLf & Err.Description)

End Function


Public Function GetGAProfiles(sAuthToken As String, Optional bIncludeHeaders As Boolean = False) As Variant



ErrGetGAProfiles:

	GetGAProfiles = "Fetching profiles failed"

End Function