The remaining text does not appear to be part of the formula ?

See more:

VB

CrystalReports

Dim inputData As String = "www.google.com"

getting error in this line

Dim inputData As String = "www.google.com"
    Dim ecl As String = "L"
    Dim mask As Integer = 8

   ConnectCodeClassQRCodeEncode(inputData,ecl ,mask )
    Dim x As Number
	Dim Result As String
	For x = 1 To ConnectCodeClassQRCodeNumBlocks() 
        	Result=Result + ConnectCodeClassQRCodeGetBlocks(x)		
	Next x
	formula = Result

What I have tried:

I have used this line of code in Crystal reports Formula fields, but not able to run.