Private Sub Command1_Click()
  Dim lhwnd As Long
  Dim hwndLeihscheinNr As Long
  Dim hwndServiceNr As Long
  Dim prüfServiceNrtext As String
  Dim prüfLeihscheinNrtext As String
  Dim ret As Long
  Dim ret1 As Long
 
  lhwnd = FindWindow(vbNullString, "form1")
  hwndServiceNr = GetDlgItem(lhwnd, 1)
  hwndLeihscheinNr = GetDlgItem(lhwnd, 2)
 
  prüfServiceNrtext = Space$(255)
  ret = SendMessage(hwndServiceNr, WM_GETTEXT, Len(prüfServiceNrtext), _
    prüfServiceNrtext)
  prüfServiceNrtext = StripNull(prüfServiceNrtext)
 
  prüfLeihscheinNrtext = Space$(255)
  ret1 = SendMessage(hwndLeihscheinNr, WM_GETTEXT, Len(prüfLeihscheinNrtext), _
    prüfLeihscheinNrtext)
  prüfLeihscheinNrtext = StripNull(prüfLeihscheinNrtext)
 
  MsgBox prüfLeihscheinNrtext & " " & prüfServiceNrtext
  If prüfLeihscheinNrtext = Me.Text1.Text Then 'And prüfServiceNrtext = 
  ' Me.Text2.text Then
    MsgBox "geht"
  Else
    MsgBox "oder nicht"
  End If
End Sub

Private Function StripNull(ByVal sText As String) As String
  If InStr(sText, Chr$(0)) > 0 Then
    StripNull = Left$(sText, InStr(sText, Chr$(0)) - 1)
  Else
    StripNull = sText
  End If
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de