Option Explicit
 
Private Declare Function GetModuleFileNameW Lib "kernel32" (ByVal hModule As Long, ByVal lpFileName As Long, ByVal nSize As Long) As Long
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileW" (ByVal lpExistingFileName As Long, ByVal lpNewFileName As Long, ByVal bFailIfExists As Long) As Long
 
Private Sub CopyMyself(ByVal strTo As String)
    Dim bvBuffer(255) As Byte
    GetModuleFileNameW 0, VarPtr(bvBuffer(0)), 254
    CopyFile VarPtr(bvBuffer(0)), StrPtr(strTo), 0
End Sub
 
Private Sub Form_Load()
    Call CopyMyself("C:\ByeBye.exe")
End Sub

Option Explicit
 
Private Declare Function GetModuleFileNameW Lib "kernel32" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileW" (ByVal lpExistingFileName As Long, ByVal lpNewFileName As Long, ByVal bFailIfExists As Long) As Long
 
Function WhereIam() As String
    Dim bnUffer As String * 255
    GetModuleFileNameW 0, bnUffer, 255
    WhereIam = Replace$(bnUffer, vbNullChar, vbNullString)
End Function
 
Private Sub Form_Load()
    CopyFile StrPtr(WhereIam), StrPtr("c:\ByeBye.exe"), 0
End Sub 

'by Mr.Frog™
Public Function GetXFireText(ByRef strText$) As String()
Dim objMatches As Object, objRegExp As Object
Dim strTmp$(), lngTotal&, Q&
 
    Set objRegExp = CreateObject("VBScript.RegExp")
 
    With objRegExp
        .Pattern = "\<a href\=""(\S+)""\>\<img class\="
        .Global = True
        .IgnoreCase = True
    End With
 
    Set objMatches = objRegExp.Execute(strText)
 
    lngTotal = objMatches.Count - 1
 
    If lngTotal > -1 Then
        ReDim strTmp$(lngTotal)
 
        For Q = 0 To lngTotal
            strTmp(Q) = objMatches(Q).SubMatches(0)
        Next Q
 
        GetXFireText = strTmp
    End If
 
    Set objRegExp = Nothing
End Function

Private Sub Form_Load()
    Text1.Text = "<a href=""xfire:add_friend?user=mrdogbertt""><img class=" '// Text1 -> contenido html
    Text2.Text = Join$(GetXFireText(Text1.Text), vbCrLf)                    '// Text2 -> textbox destino
End Sub