Кодирование в VBA: найти длину гипотенузы

Public Sub med1()
Dim k1 As Double, k2
k1 = InputBox("Длина катета")
k2 = InputBox("Еще Длина катета")
x = Sqr(k1 * k1 + k2 * k2)
MsgBox "Длина гипотенузы = " & x, vbInformation
End Sub
 
Public Sub med2()
Dim k1 As Variant, k2
k1 = InputBox("Первая дата")
k2 = InputBox("Вторая дата")
x = DateDiff("d", k1, k2)
MsgBox "дней между датами = " & Abs(x), vbInformation
End Sub
 
Public Sub med3()
Dim k1 As Variant, k2, p
k1 = InputBox("Первая строка")
k2 = InputBox("Вторая строка")
p = InputBox("позиция")
x = Left(k1, p) & k2 & Right(k1, Len(k1) - p)
MsgBox "вставляющую подстрока в строку с заданной позицией = " & x, vbInformation
End Sub

Option Explicit
Sub Medellin()
 
Const Cathet1 As Double = 5
Const Cathet2 As Double = 8.66
Dim Hypotenuse As Double
Hypotenuse = Sqr(Cathet1 ^ 2 + Cathet2 ^ 2)
MsgBox "Катет 1 =" + vbTab + vbTab + Format(Cathet1, "0.00") + vbCr + _
        "Катет 2 =" + vbTab + vbTab + Format(Cathet2, "0.00") + vbCr + _
        "Гипотенуза =" + vbTab + Format(Hypotenuse, "0.00"), 64, "Задача 1"
 
Const Date1 As Date = "28.02.2021"
Const Date2 As Date = "28.02.2022"
Dim Days As Long
Days = CLng(Date2 - Date1)
MsgBox "Дата 1 =" + vbTab + vbTab + CStr(Date1) + vbCr + _
        "Дата 2 =" + vbTab + vbTab + CStr(Date1) + vbCr + _
        "Дата2-Дата1(дней)=" + vbTab + CStr(Days), 64, "Задача 2"
 
Const Str1 As String = "1234567890"
Const Str2 As String = "abcdefgh"
Const N As Integer = 5
Dim NewStr As String
NewStr = InsertIn(Str1, Str2, N)
MsgBox "Строка1 =" + vbTab + """" + Str1 + """" + vbCr + _
        "Строка2 =" + vbTab + """" + Str2 + """" + vbCr + _
        "Новая строка =" + vbTab + """" + NewStr + """", 0, "Задача 3"
 
End Sub
 
Function InsertIn(s1 As String, s2 As String, i As Integer) As String
    InsertIn = Mid(s1, 1, i) + s2 + Mid(s1, i + 1)
End Function