Private Declare Function SCardComand Lib "SCARD32" (Handle As Long, ByVal cmd _
   As String, CmdLen As Long, ByVal DataIn As String, DataInLen As Long, ByVal _
   DataOut As String, DataOutLen As Long) As Long

    Dim D As String
    D = String(200, 0)
    L = SCardComand(0, "Card,MemRead,32,128", 0, nil, 0, D, 200)
    If L = 0 Then suchfenster.Text = D

  Dim D As String
  D = String(200, 0)
  L = SCardComand(0, "Card,MemRead,80,128", 0, nil, 0, D, 200)
  If L = 0 Then suchfenster.Text = D Else Exit Sub

Der_Designer

Ultra posse nemo obligatur.
(Niemand ist verpflichtet mehr zu leisten als er kann)