مشکل در ذخیره سازی در ارایه Vb.net

سلام من میخوام چند تا لیست بسازم و توی هر کدم اطلاعاتی رو ذخیره کنم به این صورت که اولین بار که اطلاعات میره به عنوان ADD وارد لیست میشه و بار دوم به بعد با عنوان Update میاد و بعد از خارج شدن با Delete پاک میشه و هم این که با یک لیست مال سرور مون مقایسه بشه و اگر اطلاعات درست نبود پاکش کنه و ...
حالا من این کد رو نوشتم ولی همه لیست ها فقط با یک اسم پر میشه من نمیدونم چی مشکل داره ممنونم.

کد:

---

Select Case Protocol
                Case "0" ' Add
                    SN= stro(1)
                    PN = stro(2)
                    Cht = stro(3)
                    Dim i As Integer = 0
                    For i = 0 To 17
                        If PServer(i) <> PN Then
                            If PServer(i) = "" Then
                                PServer(i) = PN
                                Chts(i) = Cht
                                NDSEND(i) = "0"
                                If Cht = "1" Then : Call Sender1("0", SN, PN, CStr(NDSEND(i) = "0")) : NDSEND(i) = "1" : End If
                                PN = ""
                                Exit For
                            End If
                        End If
                    Next
                Case "1" ' Delete
                    SN = stro(1)
                    PN = stro(2)
                    Cht = stro(3)
                    Dim i As Integer = 0
                    For i = 0 To 17
                        If SN = PN Then
                            PServer(i) = ""
                            Chts(i) = ""
                            NDSEND(i) = ""
                            SN = ""
                            PN = ""
                        Else
                            If PServer(i) = PN Then
                                PServer(i) = ""
                                Chts(i) = ""
                                NDSEND(i) = ""
                                PN = ""
                                Exit For
                            End If
                        End If
                    Next
                Case "2" ' Updata
                    SN = stro(1)
                    PN = stro(2)
                    Cht = stro(3)
                    Dim i As Integer = 0
                    For i = 0 To 17
                        If PServer(i) = PN And PServer(i) <> "" Then
                            PServer(i) = PN
                            Chts(i) = Cht
                            NDSEND(i) = "0"
                            If Cht = "1" Then : Call Sender1("0", SN, PN, CStr(NDSEND(i) = "0")) : NDSEND(i) = "1" : End If
                            PN = ""
                            Exit For
                        Else : Exit For
                        End If
                    Next
                Case "3" 'ServerList
                    SN = stro(1)
                    PN = stro(2)
                    Dim i, j As Integer
                    For i = 0 To 17
                        If Serverlist(i) = Nothing Then
                            Serverlist(i) = PN
                        End If
                    Next
                    For i = 0 To 17
                        For j = 0 To 17
                            If PServer(i) = Serverlist(j) Then
                            Else
                                Sender1("1", SN, PServer(i), CStr(NDSEND(i) = "0")) : NDSEND(i) = "1"
                                Exit For
                            End If
                        Next
                    Next
            End Select
        End If

---

من که چیزی نفهمیدم
آخه شما کلی متغیر و تابع اینجا نوشتین که معلوم نیست نوع شون چیه و چکار می کنن

همه داده ها از نوع String هستن مشکل اینه که وقتی یک داده واد ارایه میشه همه ارایه با اون داده پر میشه