'Combobox ZAFZAG füllen
    Private Sub ZAFZAG_füllen()
        'Füllt die ComboBox aus dem Unterschriften-Ordner
        'Liest den Inhalt des Ordners aus und schneidet ".jpg" ab
        Dim strPath As String
        Dim strFile As String
 
        strPath = "C:\Temp\"
        strFile = Dir(strPath & "*.txt")
 
        With cmb_ZAFZAG
            .Text = ""
            Do Until strFile = ""
                .Items.Add(Microsoft.VisualBasic.Left(strFile, _
                  Microsoft.VisualBasic.Len(strFile) - 4))
                strFile = Dir()
            Loop
        End With
    End Sub