' Kod VB6

Option Explicit

Public Sub Main()

  Dim o As Object
    
  Set o = CreateObject("NameComponent.NameFunctions")
    
  o.FirstName = "Bill"
  o.LastName = "Evjen"
    
  MsgBox "Imię i nazwisko: " + o.FullName
    
  MsgBox "Długość imienia i nazwiska: " + CStr(o.FullNameLength)
    
  o.FullName = "Scott Hanselman"
    
  MsgBox "Imię: " + o.FirstName
    
  MsgBox "Nazwisko: " + o.LastName
    
  o.LastName = "Evjen"
    
  MsgBox "Imię i nazwisko: " + o.FullName
    
  Set o = Nothing

End Sub
