Dim textboxcontent As String() = {"Suche", "Notizen", "Ersetzen", "Weiterer" & _
      "Punkt"}
    Dim used_id As Integer = 1 '=1 heisst hier: Notizen werden verwendet
 
    Public Sub Verwende_Notizen()
        'hier soll vom bisherigen Feld zu Notizen gewechselt werden
        'dazu wird der derzeitige Inhalt ins
        'Array gespeichert und der neue/bisherige Inhalt
        'aus Notizen kommt in die Textbox
 
        textboxcontent(used_id) = TextBox1.Text
 
        'used_id muss jetzt für die Notizen gesetzt werden:
        used_id = 1
 
        'der neue/bisherige Text der Notizen kommt in die Textbox:
        TextBox1.Text = textboxcontent(used_id)
    End Sub
 
    Public Sub Verwende_Suche()
        'hier soll zu Suche (used_id = 0) gewechselt werden
        'genauso wie bei den Notizen
 
        textboxcontent(used_id) = TextBox1.Text
 
        'used_id muss jetzt für die Suche gesetzt werden
        used_id = 0
 
        'und jetz der Suchtext:
        TextBox1.Text = textboxcontent(used_id)
    End Sub

_______________
Meine HP: http://www.tenschman.de/