Sub Read(ByVal ar As IAsyncResult)
    Dim Message As String = New StreamReader(Client.GetStream).ReadLine
    Client.GetStream.BeginRead(New Byte() {0}, 0, 0, AddressOf Read, Nothing)
    If Message.Length = 11 Then
        'irrelevant code
    ElseIf Message.Length > 100 Then
        Dim ContentChecker As String = Message.Substring(0, 22)
        If ContentChecker = "PreloadedVariables" Then
           Load_Preloaded_file(Message)
        End If
    Else
        'irrelevant code
    End If
End Sub

Viele Grüße
Ingo Schick