Fehler in Datei schreiben

Public Sub Test()
Dim Inhalt as Date
Dim Inhalt2 as Date
Zeile = 2
Spalte = Q
Sheets("Tabelle1").Select
Do While Cells(Zeile,2) > Empty
Range (Spalte & Zeile).Select
Inhalt = Range (Spalte & Zeile).Value
Inhalt2 = Range ("Y" & Zeile).Value
If Inhalt >= Inhalt 2 then
MsgBox "blablabla"
Exit Sub
Else
Zeile = Zeile + 1
End If
Loop
End Sub

Wie gesagt, statt Exit Sub soll der Text aus der MsgBox in die Datei geschrieben und die Prüfung bis zur ersten Leerzeile fortgeführt werden. Dann Ausgabe aller Fehler am Bildschirm oder Drucker (wahlweise).
Bin für jeden Tip dankbar.
Grüße aus würzburg
Guido Ludwig