Visual Basic for Applications. Практика. Нагина Е.К - 61 стр.

End If
If .TextPawn = "" Then
   MsgBox "Вы забыли указать сумму залога", _
           vbExclamation
   Exit Sub
End If
If IsNumeric(.TextAmount.Text) = False Then
   MsgBox "Сумма кредита введена неверно", _
           vbCritical
   Exit Sub
End If
If IsNumeric(.TextTerm.Text) = False Then
   MsgBox "Срок кредита введен неверно", _
           vbCritical
   Exit Sub
End If
If IsNumeric(.TextPawn.Text) = False Then
   MsgBox "Сумма залога введена неверно", _
           vbCritical
   Exit Sub
End If
'Присваиваем переменным значения
Фамилия = .TextLastname.Text
Имя = .TextName.Text
If .OptFemale.Value = True Then
  Пол = "Женщина"
End If
If .OptMale.Value = True Then
  Пол = "Мужчина"
End If
Адрес = .ComCity.Value + ", " + _
    .TextStr.Text + ", " + .TextBld.Text + _
    ", " + .TextFlat.Text
ВидЗалог = .ComPawn.Value
СуммаЗалог = .TextPawn.Text
Срок = .TextTerm.Text
Ставка = CInt(.ComRate.Value)
Кредит = CDbl(.TextAmount.Text)
If .TogType.Value = False Then
  Тип = 0
  КогдаПлатим = "В конце месяца"
End If
If .TogType.Value = True Then
  Тип = 1
                      61