Sub raschet (x1 as single, x2 as single, x3 as single)
Dim A1 as Single
Dim B1 as Single
Dim C1 as Single
A1 = x1+x2/x3
B1 = x2 ^ x3 + x1^x3
C1 = x1 * x2 * x3 + x1 / x2
End Sub

Function Parametr_K (param1 as Single, param2 as Single, param3 as Single) as Single
Call raschet (param1, param2, param3)
A1_znach = A1 (param1, param2, param3)
B1_znzch = B1 (param1, param2, param3)
C1_znach = C1 (param1, param2, param3)
Parametr_K = A1_znach * B1_znzch ^ C1_znach
End Function

If Len(s) = 0 Then old = "": Exit Sub
 s = Replace(Replace(s, " ", "" ;) , ds, DECSEP)
 mTex = s
 i = CDbl(Replace(s, DECSEP, Mid$(CStr(1.2), 2, 1)))
 j = InStr(s, DECSEP)
 If j > 0 Then j = Len(s) - j

Private Sub b2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = Asc("."  ;)  Then KeyAscii = Asc(","  ;)  
b1.TextAlign = fmTextAlignCenter
If b1.Value < 0 Then
 MsgBox "Значение не может быть меньше нуля!"
 Exit Sub
End If
If IsNumeric(b1) = False Then
 MsgBox "Можно вводить только числа!"
 Exit Sub
End If
End Sub

Sub RunProgramm()
Dim Blocknot As Integer
ActiveSheet.Range("D1 :D 5" ;) .Select
Selection.Copy
Blocknot = Shell("Notepad", vbMaximizedFocus)
SendKeys "^V", True
SendKeys "^s:, True
SendKeys "C:\111\fileblocknot.scr", True 'Здесь должен быть не конкретный адрес, а, например, адрес, определённый в ячейке А1 excel (то есть сначала программа определяет своё местонахождение)
SendKeys "{ENTER}", True
SendKeys "{TAB}", True
SendKeys "{ENTER}", True
SendKeys "%{F4}"
End Sub