For i As Integer = 0 To arrayIndexNos.Count - 1
                        Dim tableEncode = File.OpenText("E:\Table.txt")
                        While tableEncode.Peek <> -1
                            Dim tableEncodeLine = tableEncode.ReadLine.Split("|").ToArray

                            If textString.IndexOf(tableEncodeLine(1)) = arrayIndexNos(i) And tableEncodeLine(1).Length = 3 Then
                                Dim indexPlace = arrayIndexNos(i)

                                textString = textString.Remove(indexPlace, 3)
                                textString = textString.Insert(indexPlace, tableEncodeLine(0))
                            End If
                        End While
                            tableEncode.Close()
                    Next
                    TextBox1.Text = textString