BIC = ""

Function SEPA_IBANIsValid(ByVal IBAN As String, ByVal BIC As String) As Long
  If Status = 1 Then
 
    ' sicherstellen, dass BIC kein NULL-Pointer ist
    If StrPtr(BIC) = 0 Then BIC = ""
 
    SEPA_IBANIsValid = DTA_IBANIsValid(IBAN, BIC)
  End If
...

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de