Tab delimited not recognised

Hi for one of my requirement i have modified an existing script code from

http://sqlblog.com/blogs/andy_leonard/archive/2010/05/18/ssis-design-pattern-loading-variable-length-rows.aspx?CommentPosted=true#commentmessage

as below,

 Public Overrides Sub Input0_ProcessInputRow(ByVal Row As Input0Buffer)
        Try

            Dim vals() As String = Strings.Split(Row.Column0, "\t", , CompareMethod.Text)
            Dim RowCount As Integer = Strings.Split(Row.Column0, "\t", , CompareMethod.Text).Length

            Select Case RowCount
                Case 3
                    With MatchingBuffer
                        .AddRow()
                        .PId = vals(0)
                        .PName = vals(1)
                        .GrpID = vals(2)
                        .Status = vals(3)
                    End With
                Case Is <> 3
                    With NonMatchingBuffer
                        .AddRow()
                        .PId = vals(0)
                    End With
            End Select
        Catch ex As Exception
            ' ...handle exceptions gracefully here...
            MsgBox(ex.Message)
        End Try

the DFT runs without any error, but the non-matching records are not getting separated.

Have i used the bolded and underlined condition correctly please let me know ? as mine is a TDF i used that...