ParseYmsg

Private Sub ParseYmsg(Data As String)
    On Error Resume Next
    
    Dim PckTyp As Long, YChal() As String
    
    PckTyp = (256 * Asc(Mid$(Data, 11, 1)) + Asc(Mid$(Data, 12, 1)))
    
    Select Case PckTyp
        Case Is = 6
            Dim arrmsg() As String
            
            arrmsg = Split(Data, txtYMID.Text)
            arrmsg = Split(arrmsg(1), "À€15À€")
            
            Data = Replace(arrmsg(0), "À€14À€", "")
            
            If InStr(1, Data, "À€97À€1À€63À€;") > 0 Then
                arrmsg = Split(Data, "À€97À€1À€63À€;")
                Data = arrmsg(0)
            End If
            
            If InStr(1, Data, "À€241À€0À€97À€1") > 0 Then
                Data = Replace(Data, "À€241À€0À€97À€1", "")
            End If
            
            If InStr(1, Data, "À€455À€") > 0 Then
                arrmsg = Split(Data, "À€455À€")
                Data = arrmsg(0)
            End If
            
            Text4.Text = Data
    
        Case Is = 76
            Winsock1.SendData GetChallenge(txtYMID.Text)
            
        Case Is = 85
            lblStatus.Caption = " Logged in"
            YmsgID = Mid(Data, 17, 4)
            
        Case Is = 84
            If Mid(Data, 13, 4) = String(4, 255) Then lblStatus.Caption = " Invalid Login"
            
        Case Is = 87
            YmsgID = Mid(Data, 17, 4)
            Dim YChal1() As String, YChal2() As String
            YChal1 = Split(Data, "À€94À€")
            YChal2 = Split(YChal1(1), "À€")
            YmCrypt1.GetToken txtYMID.Text, Text2.Text, YChal2(0), "login.yahoo.com"
    End Select
End Sub