自己写的收邮件程序 怎么收到的邮件的内容是乱码呢

我用winsock进行收发邮件的  怎么收到的邮件的内容是乱码呢但是在信箱里看 不是乱码 程序为什么接受的是乱码呢怎么解决这个问题
  Winsock1.SendData "RETR 1" & vbCrLf  Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    
    Dim s As String
    
    s = Space(bytesTotal)
    
    Winsock1.GetData s
    
   ' Text1.Text = Text1.Text & s
    
    Text1.Text = s
End Sub谢谢