Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Dim str1 As String = "ListViewItem: {Hallo}ListViewSubItem:" & _
        "{Morgen}ListViewSubItem: {Abend}"
        Dim str2 As Integer = str1.IndexOf("ListViewSubItem: {")
        str1 = str1.Remove(str2, 18)
        str2 = str1.IndexOf("ListViewSubItem: {")
 
        'MessageBox.Show(str2)
        str1 = str1.Remove(str2, 18)
        str1 = str1.Remove(0, 15)
 
        MessageBox.Show(str1)
 
    End Sub