Probleme mit Sonderzeichen beim Dateiauslesen

[m3th0s]

folgendes habe ich zum kopieren des inhalts einer datei auf meinem desktop in das textfeld txtinhalt geschrieben:

Private Sub Command1_Click()
Dim dateiname As String, dateinr As Integer
Dim temp As String
dateiname = "C:\Dokumente und Einstellungen\Administrator\Desktop\text.txt"
dateinr = FreeFile
Open dateiname For Input As dateinr
Do While Not EOF(dateinr)
txtinhalt.Text = Input(LOF(dateinr), dateinr)
Loop
End Sub

Wenn ich als text.txt eine datei mit textinhalt nehme funktioniert alles,
wenn ich aber eine datei mit sonderzeichen auslesen will, gibt er mir nen fehler (Einlesen hinter Dateiende), obwohl er garnicht bis zum Dateiende gelesen hat.

wie schaffe ich es, wirklich den gesammten Inhalt der Datei auszulesen?

 

[wincnc]

Hallo, versuch´s mal so:

Private Sub Command1_Click()
Dim cText As String
Dim dateiname As String, dateinr As Integer
Dim temp As String

dateiname = "C:\Dokumente und Einstellungen\Administrator\Desktop\text.txt"

dateinr = FreeFile

Open dateiname For Binary As dateinr
  cText = Space(LOF(dateinr))
  Get dateinr, , cText
Close dateinr

txtinhalt.Text = cText

End Sub

 

[m3th0s]

dein code bringt die selben ergebnisse