It still not working.It creates only a single file named region_.txt

It is not uses the user variable.

Public Overrides Sub Input0_ProcessInputRow(ByVal Row As Input0Buffer)

Dim var As IDTSVariables90

Me.VariableDispenser.LockOneForWrite("CurrentRegion", var)

var(0).Value = Row.Region

var.Unlock()

End Sub