iman_yahoo

این رو توی Case 6 کپی کن


Dim Data As String
Data = Mid(Buffer, InStr(1, Buffer, "À€450À€") + Len("À€450À€"))
If Left(Data, 1) = 1 Then Exit Sub