Private Sub Command1_Click()
Dim CoWorker As String
Dim Min As String
Dim ResultMin As String
 
   CoWorker = fld_CountCoWorker.Text
   Min = fld_CountMinutesPerCoWorker.Text
   ResultMin = (CoWorker * ResultMin) / CoWorker
   fld_CalculatedSummCoWorkerRepTime.Text = ResultMin
 
 
 
 
End Sub