Option Explicit
 
Public Function Sum(ByVal a As Integer, ByVal b As Integer) As Integer
Sum = a + b
End Function 

Declare Function Sum Lib "TestDLL.dll" (a As Integer, b As Integer) As Integer

Sub fio()

Dim Class As New Class1
MsgBox Class.Sum( 10 ,  5 )

 
End Sub

1Declare Sub GetMem4 Lib "msvbvm60.dll" (ByVal SrcPointer As Long, ByVal DstPointer As Long)

2Public Declare Function timeGetTime Lib "winmm.dll" () As Long

Option Explicit

' Функция склонения ФИО с автоматическим определением пола по отчеству
' Параметры: pFIO    - фамилия, имя, отчество
'            nPadeg  - падеж (допустимые значения: 1..6)
'            pResult - буфер результата
'            nLen    - длина результата
' Значение:  0 - успешное завершение
'           -1 - недопустимое значение падежа
'           -3 - результат не помещается в буфере
Private Declare Function GetPadeg Lib "Padeg.dll" Alias "GetFIOPadegFSAS" _
                                  (ByVal pFIO As String, ByVal nPadeg As Long, ByVal pResult As String, ByRef nLen As Long) As Integer

' Функция преобразования cFIO в падеж nPadeg
Public Function MakePadeg(ByVal fio As String, ByVal nPadeg As Long) As String
    If fio = "" Then
        MakePadeg = "(ФИО получателя не задано)"
    Else
        Dim nLen As Long: nLen =  255 
        Dim tmpS As String: tmpS = String(nLen,  0 )
        Select Case GetPadeg(fio, nPadeg, tmpS, nLen)
        Case  0 : MakePadeg = Mid(tmpS,  1 , nLen)
        Case - 1 : MakePadeg = "(Недопустимое значение падежа - " & nPadeg & ")"
        Case - 2 : MakePadeg = "(Недопустимое значение рода)"
        Case - 3 : MakePadeg = "(Размер буфера недостаточен)"
        Case Default: MakePadeg = "(Неопознанная ошибка)"
        End Select
    End If
End Function

Public Sub ПросклонятьПолучателя(ByVal Получатель As String)
    ActiveDocument.Variables("Именительный").Value = MakePadeg(Получатель,  1 )
    ActiveDocument.Variables("Родительный").Value = MakePadeg(Получатель,  2 )
    ActiveDocument.Variables("Дательный").Value = MakePadeg(Получатель,  3 )
    ActiveDocument.Variables("Винительный").Value = MakePadeg(Получатель,  4 )
    ActiveDocument.Variables("Творительный").Value = MakePadeg(Получатель,  5 )
    ActiveDocument.Variables("Предложный").Value = MakePadeg(Получатель,  6 )
    ActiveDocument.Fields.Update
End Sub

Public Sub ВвестиФИО()
    Dim form As UserForm1
    Set form = New UserForm1
    form.Show
End Sub

Sub AddField(ByVal падеж As String)
    ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldDocVariable, Text:=падеж
    ПросклонятьПолучателя (ActiveDocument.Variables("Именительный").Value)
End Sub

Public Sub Именительный()
    AddField ("Именительный")
End Sub
Public Sub Родительный()
    AddField ("Родительный")
End Sub
Public Sub Дательный()
    AddField ("Дательный")
End Sub
Public Sub Винительный()
    AddField ("Винительный")
End Sub
Public Sub Творительный()
    AddField ("Творительный")
End Sub
Public Sub Предложный()
    AddField ("Предложный")
End Sub

Public Sub Склонение()

    Dim Получатель As String
    Получатель = "Ципихович Эндрю"

    ПросклонятьПолучателя (Получатель)

End Sub