Private Sub cmdbtnSubmit_Click() Dim myWrkBk As Workbook
Dim mySheet As Worksheet
Dim textValUp As Integer
Dim textValDown As Integer
Dim numLenA As Integer
Dim numLenF As Integer
Dim startNum As Integer
textValUp = (CInt(txtbxdz.Value) / txtDz / txtCs) + 0.5...