Private Sub standard_fuellen()
 Dim no As Integer, sContent As String, sSplitted() As String
    Dim i As Integer, j As Integer
    no = FreeFile
    ' Datei in String-Variable einlesen
    Open UserPfad For Binary As no
    sContent = Space(LOF(no))
    Get #no, , sContent
    Close no
    ' Inhalt in einzelne Zeilen aufteilen (Array)
    sSplitted = Split(sContent, vbNewLine)
    For j = 0 To UBound(sSplitted) - 1
    Next j
    ' Jede Zeile einzeln in die Liste einfügen
    For i = 0 To UBound(sSplitted) - 1
        'MsgBox sSplitted(i)
        standard.AddItem sSplitted(i)
    Next i
End Sub