If a = 4 Then
                    Dim buchstabe4 = Chr(zubu)
                End If

Dim zufabuchstaben = buchstabe1 & buchstabe2 & buchstabe3 & buchstabe4 & _
  buchstabe5
                TextBox1.Text = "" & zufabuchstaben & ""