Option Compare Database   'Verwenden der Datenbank-Sortierreihenfolge beim Vergleich von Zeichenfolgen.

Option Explicit

Declare Function EuritDialNumber% Lib "EURICTRL.DLL" (ByVal ComPort$, ByVal PhoneNumber$)

...
                          

Sub TestDialViaDLL ()
  Dim number As String
  Dim port As String
  Dim RetVal As Integer

  port = "COM1"
  number = "22"
  RetVal = EuritDialNumber(port, number)
End Sub