Option Explicit
 
Private Sub Command1_Click()
Dim obj
On Error GoTo Fehler   'Error Handler 
 
Set obj = CreateObject("vbdll.clsMain")
obj.Main_
obj.MyProperty = "TEST"
Set obj = Nothing
 
Exit Sub
 
'DLL nicht vorhanden, Meldung ausgeben
Fehler:
    Dim Msg As String
Msg = "Die DLL wurde nicht gefunden!" & vbCr & "" & vbCr & "vergewissern sie" & _
  "sich, das die DLL vorhanden oder" & vbCr & "Registriert worden ist!"
MsgBox Msg, vbCritical Or vbOKOnly, "Fehler"
 
'Resume Next                  Resume Next hab ich ausgeschaltet, damit nicht 
' mehrere 
                                           'Meldungen angezeigt werden
 
End Sub