Deleting Listbox Items?

ListBox1.Items.Remove(ListBox1.SelectedItem)

    Public Sub RemoveItem(ByVal List As ListBox, ByVal Item As String, ByVal Filename As String)
        Try
            Dim xText As New RichTextBox With {.Text = IO.File.ReadAllText(Filename)}
            List.Items.AddRange(xText.Lines)
            List.Items.Remove(Item)
            xText.Text = ""
            For Each ITems As String In ListBox1.Items
                xText.Text &= ITems & vbCrLf
            Next
            IO.File.WriteAllText(Filename, xText.Text)
        Catch ex As Exception
            Throw ex
        End Try
    End Sub

'Note: Make sure that the listbox has contents so you can remove it
RemoveItem(ListBox1, ListBox1.SelectedItem, "<filename>")

Imports System.IO

Dim File As StreamWriter = File.CreateText("file.txt")
        For Each strline As String In lst.Items
            SuburbFile.WriteLine(Suburb)
        Next
        File.Close()

lstsuburbs.Items.Remove(lst.selecteditem)

try
Dim File As StreamReader = File.OpenText("file.txt")
        Do While File.Peek <> -1
            lst.Items.Add(File.ReadLine())
        Loop
        File.Close()
catch ex as exeption
msgbox("file not created yet")
end try