Public Class Form1
    Public Sub StatusOrdner_aktualisieren(Inhalt As String)
        MsgBox(Inhalt)
        Me.StatusOrdner.Text = Inhalt
        MsgBox("neu" & StatusOrdner.Text)
        Me.StatusOrdner.Refresh()
    End Sub
 
    Private Sub StatusOrdner_TextChanged(sender As Object, e As _
      System.EventArgs) Handles StatusOrdner.TextChanged
        Me.StatusOrdner.Text = Me.StatusOrdner.Text
        Me.StatusOrdner.Refresh()
        MsgBox("neu2 " & StatusOrdner.Text)
    End Sub
end class
 
 
Module module1
    Sub Datei_auslesen(Datei As Object, e As FileSystemEventArgs)
        Form1.StatusOrdner_aktualisieren(e.Name)
    End Sub
end module