Damit die Daten überschaubar sind, werden sie einfach in eine Tabelle geschrieben. Das folgende Listing zeigt die übrigen Prozeduren in diesem Formularmodul.

Private Sub btnAbbrechen_Click()
	Unload Me
End Sub

Private Sub btnOK_Click()
	Set rngHier = Selection
	Application.Cursor = xlWait
	FindeZeichen "", Me.edtNummer.Value
	Application.Cursor = xlDefault
	Unload Me
End Sub

Mit der Schaltfläche btnOK wird in der aktuellen Datei die Liste aller möglichen Buchstaben-Kombinationen untereinander in die Zellen geschrieben. Das folgende Bild zeigt einen Ausschnitt für die Telefonnummer 9786: