Public Class INI
    Public Shared Sub RemoveSection(ByVal FromFile As String, ByVal SectionName _
      As String)
        Dim Sections() As String = GetSections(FromFile)
        Dim Sw As IO.StreamWriter
        Dim Ext As String = New IO.FileInfo(FromFile).Extension
        Try
            Sw = New IO.StreamWriter(FromFile + Ext)
            For Each S As String In Sections
                If S.StartsWith("[") AndAlso S.IndexOf(SectionName) = -1 Then
                    Sw.Write(S)
                End If
            Next
        Catch ex As Exception
            Debug.WriteLine(ex.ToString)
        Finally
            Sw.Close()
        End Try
    End Sub
    Public Shared Function GetSections(ByVal FromFile As String) As String()
        Dim Sr As IO.StreamReader = New IO.StreamReader(FromFile)
        Dim Str As String() = Sr.ReadToEnd.Split(CType(vbLf, Char))
        Dim IsSectionStart As Boolean = False
        Dim Sections() As String = {}
        Dim Count As Integer = -1
        Try
            For Each S As String In Str
                If S.StartsWith("[") Then
                    Count += 1
                    IsSectionStart = True
                    ReDim Preserve Sections(Count)
                ElseIf S.StartsWith("[") AndAlso IsSectionStart Then
                    IsSectionStart = False
                End If
                If IsSectionStart Then
                    Sections(Count) += S + System.Environment.NewLine
                End If
            Next
        Catch ex As Exception
            Debug.WriteLine(ex.ToString)
        Finally
            Sr.Close()
        End Try
        Return Sections
    End Function
End Class

        INI.RemoveSection(Application.StartupPath + "\test.ini", "[Vornamen]")