Private Sub Textbox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Select Case Worksheets("Proqram2").Cells(19, 15)
    Case "d" & ChrW(601) & "q"
        Me.TextBox3.Enabled = False
        Me.TextBox4.Enabled = False
        Me.Label10.Caption = "Vaxt"
        Me.Label12.Caption = Round(Me.TextBox5 / 435, 2) & " g" & ChrW(246) & "n"
    Case "m"
        Me.TextBox3.Enabled = True
        Me.TextBox4.Enabled = False
        Me.Label10.Caption = "Say" & ChrW(305)
        Me.Label12.Caption = Round(Me.TextBox3 * Me.TextBox5 / 1000, 2) & " m"
            
    Case "m" & ChrW(178)
        Me.TextBox3.Enabled = True
        Me.TextBox4.Enabled = True
        Me.Label10.Caption = "Say" & ChrW(305)
        Me.Label12.Caption = Round((Me.TextBox3 * Me.TextBox4 / 1000000) * Me.TextBox5, 2) & " m" & ChrW(178)
End Select
End Sub