More junk from my miscellaneous projects.  This code lets you get or set the value of an edit control in some process.  Obviously you want to use this on a foreign process, as you can change your own edit controls (text boxes) directly.

[code]Option Explicit

Private ghWnd As Long
Private gdlgID As Long

Private Declare Function SendMessageSTR Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal WMSG As Long, ByVal wParam As Long, ByVal lParam As String) As Long

Public Property Get hWnd() As Long
   hWnd = ghWnd
End Property

Public Property Let hWnd(ByVal hWnd As Long)
   ghWnd = hWnd
End Property

Public Property Get dlgID() As Long
   dlgID = gdlgID
End Property

Public Property Let dlgID(ByVal dlgID As Long)
   gdlgID = dlgID
End Property

Public Function GetText(ByRef EditText As String, Optional ByVal dlgID As Long, Optional ByVal hWnd As Long) As Long
   Dim hItem As Long
   Dim ret As Long
   Dim sMsg As String
   
   GetText = -1
   If hWnd = 0 Then hWnd = ghWnd
   If hWnd = 0 Then
       If IsMissing(dlgID) = True Then Exit Function       'no way to get hWnd if no dlgID
       hWnd = GetDlgItem(ghWnd, dlgID)
   End If
   If hWnd = 0 Then Exit Function                          'still 0, unable to continue
   sMsg = Space(255)
   GetText = SendMessageSTR(hWnd, WM_GETTEXT, Len(sMsg), sMsg)
   EditText = StripNulls(sMsg)
End Function

Public Function SetText(ByVal TextToSet As String, Optional ByVal dlgID As Long, Optional ByVal hWnd As Long) As Long
   
   Dim hItem As Long, ret As Long
   
   If IsMissing(hWnd) = True Then hWnd = ghWnd             'no edit handle provided, use module copy
   If hWnd <> 0 Then ghWnd = hWnd                          'if hWnd is now nonzero, save to module var
   If IsMissing(dlgID) = True Then dlgID = gdlgID          'if no control ID passed, use module copy
   If dlgID <> 0 Then gdlgID = dlgID                       'if control ID is now nonzero, save to module var
   If ghWnd = 0 Then Exit Function                         'still no valid handle
   SetText = SendMessageSTR(ghWnd, WM_SETTEXT, Len(TextToSet), TextToSet)
   
End Function[/code]

HTH someone.