' В строке состояния вывести процент выполнения.
Public Sub SetStatusbarProgress(ByVal oApplication As Word.Application, ByVal iPercent As Integer)
    Static sStatusbar As String
    Dim c As String
    Dim i As Integer
    
    If iPercent <  0  Then iPercent =  0 
    If iPercent >  100  Then iPercent =  100 
    If sStatusbar = "" Then
        c = ChrW( 2000 )
        For i =  1  To  100 
            sStatusbar = sStatusbar & c
        Next
    End If
    oApplication.StatusBar = Left(sStatusbar, iPercent) & " " & iPercent & "%"
End Sub

SetStatusbarProgress Application, i *  100  \ iCount

'Подогнать ширину страницы под размер экрана (или окна Word).
Public Sub FitWordPage(ByVal oApp As Application, Optional ByVal wPageFit As WdPageFit = wdPageFitBestFit)
    If System.HorizontalResolution <=  1024  Then _
        oApp.ActiveWindow.ActivePane.View.Zoom.PageFit = wPageFit
End Sub

'Вместо s = Nz(v, ""):
s = v & ""

'Вместо i = Nz(v, 0):
i = IIf(Len(v) >  0 , v,  0 )

s = Fam & " " & Im & " " & Otch & (", г." & City) & (", ул." + Street) & (", д." + House)

' Отбрасывает из строки лишние пробелы. Если остаётся пустая строка, преобразует в Null.
' Удобно для конкатенации с другими строками.
Private Function ToNull(ByVal v As Variant) As Variant
    v = Trim(v)
    If Len(v) >  0  Then ToNull = v Else ToNull = Null
End Function

    With address
        s = (ToNull(.Name) + "," + vbNewLine) & _
            (ToNull(.PostIndex) + ", ") & _
            (IIf(Trim(.City) Like "[Гг].*", Trim(.City) + ", ", "г." + ToNull(.City) + ", ")) & _
            ToNull(.Address) & ""
    End With
    If Right(s,  2 ) = ", " Then s = Left(s, Len(s) -  2 )
    If Right(s,  2 ) = "," + vbNewLine Then s = Left(s, Len(s) -  2 )

Private Sub UserForm_Activate()
  ' Здесь ваши действия по инициализации переменных
End Sub

Unload Me

frmParameters.Show

ActiveDocument.Activate
frmParameters.Show vbModal

'Подогнать ширину страницы под размер экрана (или окна Word).
Public Sub FitWordPage(ByVal oApp As Application, Optional ByVal wPageFit As WdPageFit = wdPageFitBestFit)
    Dim oWindow As Word.Window
    Dim oPane As Word.Pane
    
    If System.HorizontalResolution <=  1024  Then ' Для разрешения экрана <= 1024x768
        For Each oWindow In oApp.Windows
            For Each oPane In oWindow.Panes
                oPane.View.Zoom.PageFit = wPageFit
            Next
        Next
    End If
End Sub

for q =  1  To  999999 
Beep
Next

for q =  1  To  999999 
    Beep
    SetStatusbarProgress Application, q *  100  \  999999 
Next

Dim i As Long
Dim lCount As Long

' Увеличивает счётчик выполненных операторов и рисует шкалу.
Private Sub ShowNextPercent
    i = i +  10 
    SetStatusbarProgress Application, i *  100  \ lCount
    DoEvents
End Sub

Private Sub ВашаПроцедура
    i =  0 
    lCount =  999999 

    Beep
    Beep
    ...
    Beep ' 10-ый раз
    ShowNextPercent
    Beep
    Beep
    ...
    Beep ' 20-ый раз
    ShowNextPercent
    ...
    Beep ' 999999-ый раз
    ShowNextPercent
End Sub