Van txt bestand naar textbox en dan naar Excel

[Schipperjte]

Hoi,
Wat gevonden om van een txt file naar een textbox te gaan

 Private Sub TextBox1_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.VisibleChanged
        TextBox1.Text = My.Computer.FileSystem.ReadAllText("C:\afa.txt")
    End Sub

Wekt goed en neemt het over, ik heb VisibleChanged gebruikt om dat de textbox verborgen is .

De bedoeling is dat de naam die in het txt bestand staat naar een sheet in excel gaat
met dit . Het excel bestand wordt al geopend

en hier mee

Worksheets("BM").Cells(1, 1).value = (TextBox1.Text)

als ik de code bij elkaar doe start bij niet op

 Private Sub TextBox1_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.VisibleChanged
        TextBox1.Text = My.Computer.FileSystem.ReadAllText("C:\afa.txt")
        Worksheets("BM").Cells(1, 1).value = (TextBox1.Text)
    End Sub]

wat zie ik over het hoofd , beide werken los van elkaar maar beide tegelijk gaat niet ?


Bas

 

[Schipperjte]

Worksheets("BM").Cells(1, 1).value = My.Computer.FileSystem.ReadAllText("C:\afa.txt")


werkt goed