Public Function genBIC(sIBAN As String) As String
  ' IBAN-Kontonummer prüfen
  Dim lResult As Long
  'Dim sIBAN As String
 
  'sIBAN = IBAN
  lResult = sevDTA_CheckIBAN(sIBAN)
 
  If lResult = 1 Then
    ' IBAN-Nr. ist gültig
    'ImageShow True, False
 
    ' Erweitere Infos zum Kredit-Institut holen
    If Left$(sIBAN, 2) = "DE" Then
      Dim sBLZ As String
      Dim sName As String
      Dim sPlz As String
      Dim sOrt As String
      Dim sBIC As String
      Dim sBank As String
      Dim sPz As String
 
      sBLZ = Mid$(Replace(sIBAN, " ", ""), 5, 8)
      sBank = Space$(28)
      sPz = Space$(3)
 
      lResult = sevDTA_BLZGetInfo(sBLZ, sBank, sPz)
      If lResult <> -1 Then
        sBank = TrimNullChar(sBank)
        sPz = TrimNullChar(sPz)
        If Len(sBank) = 0 Then sBank = "(Unbekannt)"
 
        ' erweiterte Infos zur BLZ
        sName = Space$(59)
        sPlz = Space$(6)
        sOrt = Space$(36)
        sBIC = Space$(12)
        lResult = sevDTA_BLZGetInfoEx(sBLZ, sName, sPlz, sOrt, sBIC)
        If lResult = ERR_BLZ_OK Then
          genBIC = TrimNullChar(sBIC)
        Else
          genBIC = "ERROR_1"
        End If
      Else
        genBIC = "ERROR_2"
      End If
 
    Else
      genBIC = "ERROR_3"
    End If
 
  Else
    ' Ungültige IBAN-Nr.
    'txtInfo = "Ungütlige IBAN-Nr!"
    'ImageShow False, True
  End If
  'MsgBox "BIC: " & TrimNullChar(sBIC)
End Function