Læse fra txt

Sådan:


Dim tmpStr as String

Open \"C:\\ost.txt\" for input as 1
line input #1,aVar
label1.caption=aVar
Close 1

Idet jeg går udfra, at der kun er én linie i tekstfilen...

Nej helst hele tekstfilen

Så gør du sådan her:

Dim tmpStr As String

Private Sub Command1_Click()

On Error GoTo FileErr
Open \"d:\\beepfail.txt\" For Input As 1
Label1.Caption = \"\"

Do
    Line Input #1, tmpStr
    Label1.Caption = Label1.Caption + tmpStr + vbCrLf
Loop Until EOF(1)

Close 1
Exit Sub

FileErr:
MsgBox \"Fejl under åbning af filen\", vbExclamation, \"FEJL\"
On Error GoTo 0

End Sub