[VB6] ottenere numero di mail

[c-enrico]

 Dim myData As String
    

    ws.Close
        
            
    ws.Connect "pop.tiscali.it", 110
     
      
 Do
  DoEvents
  If ws.State = sckConnected Then Exit Do ' se è collegato
  If ws.State = sckError Then Exit Do ' se non si è collegato
 Loop

      
      
  Text1.Text = ws.State


  'e in Text1 ottengo 7 che vuol dire che è connesso
  
      
  ws.SendData "USER " & "contenti@tiscali.it" & vbCrLf
  DoEvents
  ws.SendData "PASS " & "mia password" & vbCrLf
  DoEvents
  ws.SendData "STAT" + vbCrLf
  DoEvents
  'ws.SendData "RETR 1"
      
             
      ws.GetData myData
      
      Text2.Text = myData
     
          
End Sub

in text2 vorrei ottenere il numero di mail
ma non ottengo niente come devo fare?