If dr("part_tran_type") = "D" And dr("tran_particular") Like "BCL/BC/NWSC/NWSC/%" Then
                                                        
                            subpaymentref = dr("tran_particular")
                            finalpaymentref = subpaymentref.Substring(13, 50)
                            finalpaymentref = finalpaymentref.Replace("/", "|")
                            
                            
                        ElseIf dr("part_tran_type") = "D" And dr("tran_particular") Like "/BC/NWSC/NWSC/%" Then
                            
                            subpaymentref = subpaymentref = dr("tran_particular") 
                            finalpaymentref = subpaymentref.Substring(10, 50)
                            finalpaymentref = finalpaymentref.Replace("/", "|")
                            

                        ElseIf dr("part_tran_type") = "D" And (dr("tran_particular") Like "BCL/BC/NWSC/NWSC/%") = False And (dr("tran_particular") Like "/BC/NWSC/NWSC/%") = False Then
                            
                            finalpaymentref = subpaymentref = dr("tran_particular")
                            finalpaymentref = finalpaymentref.Replace("/", "|")
                            

                        ElseIf dr("part_tran_type") = "C" And dr("tran_particular") Like "BCL/BC/NWSC/NWSC/%" Then
                            
                            subpaymentref = subpaymentref = dr("tran_particular") 
                            finalpaymentref = subpaymentref.Substring(13, 50)
                            finalpaymentref = finalpaymentref.Replace("/", "|")
                            

                        ElseIf dr("part_tran_type") = "C" And dr("tran_particular") Like "/BC/NWSC/NWSC/%" Then
                            
                            subpaymentref = subpaymentref = dr("tran_particular")
                            finalpaymentref = subpaymentref.Substring(10, 50)
                            finalpaymentref = finalpaymentref.Replace("/", "|")
                            

                        ElseIf dr("part_tran_type") = "C" And (dr("tran_particular") Like "BCL/BC/NWSC/NWSC/%") = False And (dr("tran_particular") Like "/BC/NWSC/NWSC/%") = False Then
                            
                            finalpaymentref = subpaymentref = dr("tran_particular")
                            finalpaymentref = finalpaymentref.Replace("/", "|")
                            
                            
                        End If