'Einlesen
        Dim SR As New System.IO.StreamReader(".\Fake\serial.txt")
 
        While Not SR.EndOfStream
            MaskedTextBox1.Text = SR.ReadToEnd()
        End While
        SR.Close() '

fg viperbone