Dim blist As New List(Of String)(IO.File.ReadAllLines("woerter.txt"))
    Public rnd As New Random
    Public wort As String = UCase(blist(rnd.Next(blist.Count)))
    Public altes_wort = wort
    Public cArr() As Char = wort.ToCharArray
    Public cArr2() As Char = New Char(cArr.Length - 1) {}

For i As Integer = 0 To cArr.Length - 1
            If cArr(i) = " " Then
                cArr2(i) = cArr(i)
            Else : cArr2(i) = "-"
            End If
            Label1.Text = Label1.Text + cArr2(i)
        Next
        Me.BringToFront()