Dim zzz as Object
on error resume next
Set zzz = CreateObject("Project1.Class1")
If Err.Number<>0 then
   Msgbox "программа работать не может, пичалька"
   Exit sub
End If
On Error goto как было до resume next
aaa = zzz.xxx(111)

On Error goto как было до resume next
aaa = zzz.xxx(111)

Private Sub Raschet_na_deni()
         VB = VelVB
         NB = VelNB
           Vtek = 0
            Moduli_rascheta
               NB1.Text = NB: VNB1 = NB: VB1.Text = VB: VVB1 = VB1.Text: G1.Text = Generaciia:  P1.Text = Pritok: _
               IzmNB1.Text = Raznica_NB: IzmVB1.Text = Rost_padenie: Rashod1.Text = Rashod 
End Sub

Dim zzz as Object
on error resume next
Set zzz = CreateObject("Project1.Class1")
If Err.Number<>0 then
   Msgbox "программа работать не может, пичалька"
   Exit sub
End If
On Error goto 0
aaa = zzz.xxx(111)

Private Sub Moduli_rascheta()
      Napor = Format(VB - NB, "0.00") 
      Generaciia = VelG
      Pritok = VelP
           ViborG
               If VB >= 24 And VB <= 24.2 Then RangeVB = 1 
               If VB >= 24.21 And VB <= 24.99 Then RangeVB = 2
               If VB >= 25 And VB <= 25.99 Then RangeVB = 3
               If VB >= 26 And VB <= 26.99 Then RangeVB = 4
               If VB >= 27 And VB <= 27.49 Then RangeVB = 5
               If VB >= 27.5 And VB <= 27.64 Then RangeVB = 6
               If VB >= 27.65 And VB <= 27.99 Then RangeVB = 7
               If VB >= 28 And VB <= 28.99 Then RangeVB = 8
               If VB >= 29 And VB <= 29.11 Then RangeVB = 9
               If VB >= 29.12 And VB <= 29.29 Then RangeVB = 10
               If VB >= 29.3 And VB <= 29.49 Then RangeVB = 11
               If VB >= 29.5 And VB <= 29.69 Then RangeVB = 12
               If VB >= 29.7 And VB <= 29.87 Then RangeVB = 13
               If VB >= 29.88 And VB <= 29.99 Then RangeVB = 14
               If VB >= 30 And VB <= 30.49 Then RangeVB = 15
               If VB >= 30.5 And VB <= 31 Then RangeVB = 16
                   Izmenenie_NB
                   Izmenenie_VB
End Sub

Dim zzz as Object
on error resume next
Set zzz = CreateObject("Project1.Class1")
If Err.Number<>0 then
   Msgbox "программа работать не может, пичалька"
   Exit sub
End If
On Error goto 0
aaa = zzz.Moduli_rascheta()

Private Sub Raschet_Click()
  If Raschet.Value Then Raschet.Value = 0: Exit Sub 
      Dim zzz As Object
          On Error Resume Next
              Set zzz = CreateObject("Project1.Class1")
                   If Err.Number <> 0 Then
                   MsgBox "&#239;&#240;&#238;&#227;&#240;&#224;&#236;&#236;&#224; &#240;&#224;&#225;&#238;&#242;&#224;&#242;&#252; &#237;&#229; &#236;&#238;&#230;&#229;&#242;, &#239;&#232;&#247;&#224;&#235;&#252;&#234;&#224;"
              
              Exit Sub
              End If
              
            On Error GoTo 0
            'aaa = zzz.xxx(111)
      Knopki.FileName = "D:\&#196;&#195;&#221;&#209;\Windows Navigation Start"
      Knopki.Command = "Sound"
          If G.Text = "" Or P.Text = "" Or VerhniiB.Text = "" Or NijniiB.Text = "" Then
          MsgBox "&#205;&#229;&#228;&#238;&#241;&#242;&#224;&#242;&#238;&#247;&#237;&#238; &#228;&#224;&#237;&#237;&#251;&#245;!", vbInformation + vbOKOnly, "&#194;&#237;&#232;&#236;&#224;&#237;&#232;&#229;!" '&#207;&#240;&#238;&#226;&#229;&#240;&#234;&#224; &#226;&#226;&#229;&#228;&#229;&#237;&#251; &#235;&#232; &#228;&#224;&#237;&#237;&#251;&#229;
          VerhniiB.Enabled = True
          NijniiB.Enabled = True
   Else
       If Nedelia Then Raschet_na_nedeliu 
       If deni Then Raschet_na_deni
             VerhniiB.Enabled = False
             NijniiB.Enabled = False
   End If
End Sub

Private Sub Test()
dim a as integer
a=5
End Sub

Sub Test(ByVal a as integer)
a=5
End Sub

Sub Test(ByRef a as integer)
b=a
End Sub