.NET (Core and Framework)

<br />
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br />
        Dim ParamSeparator() As String = {"GIF89a"}<br />
        Dim gif As String = File.ReadAllText(OpenFileDialog1.FileName)<br />
        Dim i As Integer = 0<br />
        If File.Exists(OpenFileDialog1.FileName) = True Then<br />
            For Each files As String In gif.Split(ParamSeparator, StringSplitOptions.None)<br />
                If files.Length > 0 Then<br />
                    ListBox1.Items.Add(i & " " & files.Length + 6 & " 0")<br />
                    i = i + files.Length + 6<br />
                    number = number + 1<br />
                End If<br />
            Next<br />
            TextBox1.Text = number<br />
        End If<br />
    End Sub<br />