Der Aufruf dieser Klassen clsTXT und clsDB ist nun so identisch, dass durch einfachen Austausch des Klassennamens ein Wechsel zu einer anderen Datenquelle möglich wird:

Sub TesteZugriffDB()
	Dim Daten As clsDB

	Set Daten = New clsDB
	MsgBox "Der erste Name ist '" & Daten.ErsterName & "'.", , Daten.Klassenname
End Sub

Sub TesteZugriffTXT()
	Dim Daten As clsTXT

	Set Daten = New clsTXT
	MsgBox "Der erste Name ist '" & Daten.ErsterName & "'.", , Daten.Klassenname
End Sub

Wahlweise lassen Sie sich den ersten Namen aus der Tabelle oder aus der Textdatei anzeigen. Dazu müssen im Code nur die Zeilen mit Dim und Set mit den entsprechenden Klassennamen genannt werden. Alle übrigen Aufrufe von Prozeduren dieser Klasse bleiben immer gleich!