Private Sub CommandButton1_Click()
Dim drawingX As Double: drawingX = TextBox1.Value
Dim drawingY As Double: drawingY = TextBox2.Value

Dim realX As Double: realX = TextBox3.Value
Dim realY As Double: realY = TextBox4.Value

Dim diffX As Double: diffX = realX - drawingX
Dim diffY As Double: diffY = realY - drawingY

Dim ResultPosition As Double: ResultPosition = Sqr(diffX * diffX + diffY * diffY) * 2

TextBox5 = ResultPosition
End Sub

https://i.imgur.com/yhMCwtL.jpg
位置度だけだけど。
テキストボックスはIMEModeOffにしておく