' VB6 Code

Option Explicit
 
Public Sub Main()
    
  Dim o As DivideComponent.DivideFunction
    
  Set o = New DivideComponent.DivideFunction
    
  MsgBox "1 divided by 3: " + CStr(o.divide(1, 3))
    
  MsgBox "1 divided by 0: " + CStr(o.divide(1, 0))
    
  MsgBox "2000 divided by 3000: " + CStr(o.divide(2000, 3000))
  
  Set o = Nothing

End Sub
