Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button7.Click
        Dim antrag As String = ""
        Dim name As String = ""
        Dim plz As String = ""
        Dim ort As String = ""
 
        Dim inhalt() As String = {"eins, zwei, drei, vier"}     'Inhalt eines 
        ' Array  (normal aus einem Range)
        Dim varname() As String = {"antrag, name, plz, ort"}    'Liste der 
        ' VariablenNamen (normal ca.33)
 
        Dim i As Integer = 0
        For Each var As Object In varname
            var = inhalt(i)             'in var steht jetzt jedesmal der 
            ' VariablenName den ich belegen möchte
            i += 1                      'aber so geht es natürlich nicht, weil 
            ' er hier var neu belegt =:-|
        Next                            'Wie muss ich die Zeile schreiben damit 
        ' er den Inhalt als VarNamen nimmt ?
 
        LBL_4.Text = antrag & ", " & name & ", " & plz & ", " & ort
    End Sub

Freundliche Gr??e
Detlef