Sub h2_iban()
Dim lResult As Long
Dim sIBAN As String
Dim sBIC As String
 InitDTA
' Wichtig! Mit ausreichend Leerstellen füllen!
sIBAN = Space$(23)
sBIC = Space$(12)
 
' IBAN-Kontonummer berechnen
lResult = sevSEPA_CalcIBAN("793 530 90", "16303", sBIC, sIBAN)
If lResult = ERR_DTA_SUCCESS Then
 '  IBAN-Kontonummer anzeigen!
  MsgBox "IBAN: " & RTrim$(Left$(sIBAN, 22)) & vbCrLf & _
    "BIC: " & RTrim$(Left$(sBIC, 11))
ElseIf lResult = ERR_SEPA_CALCIBAN_WARNING Then
  ' IBAN-Kontonummer mit Warnung!
  MsgBox "IBAN: " & RTrim$(Left$(sIBAN, 22)) & vbCrLf & _
    "BIC: " & RTrim$(Left$(sBIC, 11)) & vbCrLf & vbCrLf & _
    "Hinweis: Bitte nachprüfen, da Konto-Nr. nicht eindeutig!"
 
ElseIf lResult = 4711 Then ' ERR_SEPA_CALCIBAN_NOUSAGE Then
  ' keine IBAN-Ermittlung
  MsgBox "Diese Bankverbindung findet im " & _
    "Zahlungsverkehr keine Verwendung!"
 
Else
  MsgBox "unbekannter Fehler " & lResult
End If
End Sub