Msgbox text1.text

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Const SW_SHOWNORMAL = 1
Const SW_SHOWHIDE = 0

Private Sub Form_Load()
Dim hWnd        As Long
hWnd = FindWindow(vbNullString, "Mi PC")
If hWnd <> 0 Then
    'ShowWindow hWnd, SW_SHOWHIDE  'esto lo oculta
    'ShowWindow hWnd, SW_SHOWNORMAL ' y esto lo muestra
End If
End Sub

Open ("C:\prueba.txt") for output as #1
print #1, "hackxcrack"
close #1