[سؤال] اتمنى مساعدتي في هدا الكود

السلام عليكم ورحمة الله وبركاته

إخوانى عندي هدا الكود وهو يعمل بشكل جيد لكنى اريد تغير بعض الأشياء فيه فقط

PHP كود :

Dim txt_1 As String
        Dim text_strs As String
        txt_1 = File.ReadAllText(My.Application.Info.DirectoryPath & "\conter")
        text_strs = File.ReadAllText(My.Application.Info.DirectoryPath & "\desktop.txt")
        text_strs = Replace(text_strs, Chr(10), "")
        '-----------------------------------------
        Dim desktop_splt() As String
        '----------
        desktop_splt = text_strs.Split(vbCrLf)
        '--------------
        If txt_1 = "" Then
            File.WriteAllText(My.Application.Info.DirectoryPath & "\conter", 0)
            MsgBox(desktop_splt(0))
            
        Else
            If txt_1 = desktop_splt.Length - 1 Then
                File.WriteAllText(My.Application.Info.DirectoryPath & "\conter", 0)
                MsgBox(desktop_splt(0))
               
            Else
                File.WriteAllText(My.Application.Info.DirectoryPath & "\conter", txt_1 + 1)
                MsgBox(desktop_splt(txt_1 + 1))
                
            End If
           
        End If 