Dim BasisControlRowCount As Integer = 0

BasisControlRowCount = Dts.Variables("v_BasisControlRowCount").Value

 Public Sub Main()
       
        Dim BasisControlRowCount As Integer = 0

        BasisControlRowCount = Dts.Variables("v_BasisControlRowCount").Value

        '        MsgBox(BasisControlRowCount)

        If BasisControlRowCount > 0 Then
            Dts.TaskResult = ScriptResults.Success
        Else
            Dts.TaskResult = ScriptResults.Failure

        End If

    End Sub