Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button4.Click
        Dim zeichenk As String
        zeichenk = "Ich hab viele Zeichen"
        label1.caption = Left(zeichenk, 5)
    End Sub