Public N, m, N1 As Single

Public Sub Text1_Click()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub

Private Sub Command1_Click()
 m = Val(Text1.Text)
Select Case Combo1.ListIndex
Case 0
N = m / 46.5 * 10 ^ 27
Case 1
N = m / 28.3 * 10 ^ 27
Case 2
N = m / 96.5 * 10 ^ 27
Case 3
N = m / 29.9 * 10 ^ 27
Case 4
N = m / 3.3 * 10 ^ 27
Case 5
N = m / 66.4 * 10 ^ 27
Case 6
N = m / 93.2 * 10 ^ 27
Case 7
N = m / 153 * 10 ^ 27
Case 8
N = m / 53.2 * 10 ^ 27
Case 9
N = m / 166 * 10 ^ 27
Case 10
N = m / 213 * 10 ^ 27
Case 11
N = m / 282 * 10 ^ 27
Case 12
N = m / 360 * 10 ^ 27
Case 13
N = m / 163 * 10 ^ 27
Case 14
N = m / 265 * 10 ^ 27
Case 15
N = m / 60.6 * 10 ^ 27
Case 16
N = m / 97 * 10 ^ 27
End Select
Select Case List1.ListIndex
Case 0
Label6.Caption = Str(N) + " молекул"
Case 1
N1 = N / 1000
Label6.Caption = Str(N1) + " молекул"
Case 2
N1 = N / 1000000
Label6.Caption = Str(N1) + " молекул"
End Select
End Sub