Sub Prozedur1(Eingabe as String)
Dim i%,lngPosABC%,strABC as string
strABC = "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz "
 
for i=1 to len(eingabe)
      lngPosABC = InStr(1, strABC, mid(Eingabe,i,1), 0)
 
    If lngPosABC > 0 Then
        strFile = "C:\Buchstaben6x8\" & lngPosABC & ".txt"  'Pfad ermitteln
    End If