Sub lesen(buchstabe As String)
        Tippsdatei = buchstabe + ".txt"
        TippsEinlesen()
        Dim z As Integer = 0 'zählervariable
        If Kennzeichen IsNot Nothing Then
            Do Until z = UBound(Kennzeichen) + 1
                lvwAddItem(lvKennzeichen, Kennzeichen(z), Ort(z))
                z = z + 1 'z erhöhen um 1
            Loop
        End If
    End Sub
 
    Public Sub lvwAddItem(ByVal lvw As ListView, ByVal ParamArray Text() As _
      String)
        With lvw.Items
            ' 1. Eintrag hinzufügen
            With .Add(Text(0))
                If Text.Length > 1 Then
                    ' String-Array für die weiteren Zellen erstellen...
                    Dim SubItems(Text.Length - 1) As String
                    Array.Copy(Text, 1, SubItems, 0, Text.Length - 1)
 
                    ' ... und diese via AddRange dem ListView hinzufügen
                    .SubItems.AddRange(SubItems)
                End If
            End With
        End With
    End Sub

Kennzeichen::
H
HA
HAL
HAM
HAS
HB
HBN
HD
HDH
HE
HEF
HEI
HEL
HER
HF
HG
HGW
HH
HI
HL
HM
HN
HO
HOL
HOM
HP
HR
HRO
HS
HSK
HST
HU
HVL
HWI
HX
HZ
Ort::
H
HA
HAL
HAM
HAS
HB
HBN
HD
HDH
HE
HEF
HEI
HEL
HER
HF
HG
HGW
HH
HI
HL
HM
HN
HO
HOL
HOM
HP
HR
HRO
HS
HSK
HST
HU
HVL
HWI
HX
HZ

lesen("H")

Visual Basic FTW!!