Asynchronous Script Component Error...um ..help?

Well my 1 in/multiple out asynchronous script component was looking fabulous, until I tried to run it.
Turns out you can't step through a script component with the debugger, so I'm kind of stuck.

I'm getting the error 'There is no current row in the buffer. A row may need to be added using the AddRow method.'

Here's the script I'm running. For each input row, it's trying to unstring linefeed-seperated input column data into a set of arrays, then create an output row for each populated occurrence and use Addrow() to write the new row. (According to the MSDN doco I shouldn't need to use CreateNewOutputRows())

Can anyone spot where I'm going wrong?


Imports System

Imports System.Data

Imports System.Math

Imports Microsoft.SqlServer.Dts.Pipeline.Wrapper

Imports Microsoft.SqlServer.Dts.Runtime.Wrapper

Public Class ScriptMain

Inherits UserComponent

Dim rcobc(0 To 9) As String

Dim rcobcdesc(0 To 9) As String

Dim rcobcbase(0 To 9) As String

Dim rcobcunits(0 To 9) As String

Dim ratechg(0 To 9) As String

Dim ratelevy(0 To 9) As String

Dim ratered(0 To 9) As String

Dim ratetotal(0 To 9) As String

Dim arrposn As Integer



Public Overrides Sub Input0_ProcessInputRow(ByVal Row As Input0Buffer)


rcobc = Split(Row.INASMRCOBC, vbLf)

...(more unstringing here)
ratetotal = Split(Row.INASMRATETOTALGI, vbLf)

For arrposn = LBound(rcobc) To UBound(rcobc)


If rcobc(arrposn) > " " Then


RatelineBuffer.obc = rcobc(arrposn)

...(more assignments here)
RatelineBuffer.valuation = Row.ASMVALUATION

RatelineBuffer.AddRow()

End If

Next arrposn

End Sub

Public Sub CreateNewOutputRows()

'

' Add rows by calling AddRow method on member variable called "<Output Name>Buffer"

' E.g., MyOutputBuffer.AddRow() if your output was named "My Output"

'

End Sub



End Class