Problem mit FormLoad

Private Sub Form_Load()
frmDaten.Show
Unload Me
End Sub

Auf der UF frmDaten habe ich folgenden code:

Private Sub Form_Load()
mod_txtEinlesen.ReadEingabenTxT ("" & SpeicherortDomus & "manuell.txt")
End Sub

in Modul mod_txtEinlesen.ReadEingabenTxT habe ich folgenden Code:

Public Sub ReadEingabenTxT(sFilename As String)
Dim i As Integer
On Error GoTo zError
'den code hier habe ich ausgeblendet, weil egal
Exit Sub
zError:
MsgBox "Konnte die Datei nicht einlesen. ", vbExclamation
Unload frmDaten
frmEinstell.Show
End Sub

Problem:
frmDaten.show
In frmDaten tritt beim Laden ein Fehler auf, wodurch die frmDaten entladen werden soll und die frmEinstell aufgerufen werden soll.
Das ganze endet jedoch mit obigen Code in einer endlosschleife, weil wohl das erste frmDaten.show er immer wieder versucht.
Was mach ich falsch? (is vb 6.0)
Im Prinzip will ich das show von der frmStart und das load von frmDaten abbrechen in dem Modul.
Grüße au dem verregneten HH
ray