Public Function recv()
    While globalbuffer IsNot Nothing
        Clean(globalbuffer.Substring(0, globalbuffer.Length - globalbuffer.IndexOf(vbCrLf)))
    End While

    Return buffer2
    buffer2 = ""
End Function