Public Class Form1
  Private m_S As New System.Collections.Generic.List(Of String)
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles Button1.Click
    Dim st As New System.Text.StringBuilder
 
    For Each s As String In m_S
      st.Append(s)
    Next
 
    MsgBox(st.ToString)
  End Sub
 
  Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As _
    System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
 
    m_S.Add(Chr(e.KeyValue))
 
  End Sub
End Class

Visual Basic Express 2010, C# Express 2010
Intel? i7 Core 920@2.63 Ghz, 6 GByte DDR3, 1024 MB ATI? Radeon? 5870, Windows 7 Prof. 64 Bit
Gibson SG 61' Reissue ; Ibanez Prestige RG 2550 E, Marshall Valvestate VS100 + Modell Vs412 (4 x 12''), Cubase Studio