Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
  hwnd As Long, ByVal wMsg As Long, _
    ByVal wParam As Long, lParam As Any) As Long
 
Const WM_SETTEXT = &HC
 
SendMessage Handle, WM_SETTEXT, &H0, ByVal "Dein neuer Text für das Textfeld"

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...