Создать программный код, в котором ввод данных осуществляется функцией InputBox

Sub Madwa()
 
Const j As Integer = 4, t As Single = 0.00000045
 
Dim a As Single, b As Single
Dim i As Integer, InBox As String, Msg As String
Dim s As Double, w As Double, v As Double
 
For i = 1 To 2
    Msg = ""
    Do
        InBox = InputBox(Msg + vbCr + "Введите " + Chr(96 + i), "Ввод исходных данных")
        If (InBox) = "" Then Exit Sub
        Msg = "Введенное данное """ + InBox + """ не корректно"
        L = IsNumeric(InBox)
        If L Then
            If i = 1 Then a = CSng(InBox) Else b = CSng(InBox)
        End If
    Loop Until L
Next
 
Debug.Print "j = " + CStr(j)
Debug.Print "t = " + Format(t, "00E+00")
Debug.Print "a = " + Format(a, "0.00")
Debug.Print "b = " + Format(b, "0.00")
s = Sqr(t * a / (t + 1)) + 4 * Exp(2 * b)
Debug.Print "s = Sqr(t*a/(t+1))+4*Exp(2*b)" + vbTab + vbTab + vbTab + "= " + Format(s, "0.000E+00")
w = s * a / (1 + 0.1 * a)
Debug.Print "w = s*a /(1+0.1*a)" + vbTab + vbTab + vbTab + vbTab + "= " + Format(w, "0.000E+00")
v = s + (j + 0.5) * Sqr(a ^ 2 + b ^ 2)
Debug.Print "v = s+(j+0.5)*Sqr(a^2+b^2)" + vbTab + vbTab + "= " + Format(v, "0.000E+00")
Debug.Print vbCr
Application.SendKeys "^g"
 
End Sub