Private Sub Buchstaben(Ziel As String)
 
    Dim aString     As Integer
    Dim bString     As Integer
    Dim cString     As Integer
    Dim dString     As Integer
    Dim i           As Integer
    Dim Text        As String
 
    On Error GoTo Fehler
        Open Ziel For Output As #1
    On Error GoTo 0
 
    For i = 1 To 4
        Select Case i
            Case Is = 1 'Ein Buchstabe
                For aString = 65 To 122
                    If aString = 91 Then aString = 97
                    Text = Chr(aString)
                    Print #1, Text
                Next aString
            Case Is = 2 'Zwei Buchstaben
                For aString = 65 To 122
                    If aString = 91 Then aString = 97
                    For bString = 65 To 122
                        If bString = 91 Then bString = 97
                        Text = Chr(aString) & Chr(bString)
                        Print #1, Text
                    Next bString
                Next aString
            Case Is = 3 'Drei Buchstaben
                For aString = 65 To 122
                    If aString = 91 Then aString = 97
                    For bString = 65 To 122
                        If bString = 91 Then bString = 97
                        For cString = 65 To 122
                            If cString = 91 Then cString = 97
                            Text = Chr(aString) & Chr(bString) & Chr(cString)
                            Print #1, Text
                        Next cString
                    Next bString
                Next aString
            Case Is = 4 'Vier Buchstaben
                For aString = 65 To 122
                    If aString = 91 Then aString = 97
                    For bString = 65 To 122
                        If bString = 91 Then bString = 97
                        For cString = 65 To 122
                            If cString = 91 Then cString = 97
                            For dString = 65 To 122
                                If dString = 91 Then dString = 97
                                Text = Chr(aString) & Chr(bString) & Chr( _
                                  cString) & Chr(dString)
                                Print #1, Text
                            Next dString
                        Next cString
                    Next bString
                Next aString
        End Select
    Next i
 
    Exit Sub
 
Fehler:
    MsgBox "Der Dateiname ist ungültig", vbCritical, "Kein gültiger Dateiname"
    Exit Sub
End Sub