Private Function L(x1 As Single, y1 As Single, x2 As Single, y2 As Single)

L = Sqr((x1 - x2) * (x1 - x2) + (y1 - y2) * (y1 - y2))

End Function

Private Sub Command1_Click()

Dim x1 As Single, x2 As Single, y1 As Single, y2 As Single

x1 = InputBox("x1=")

y1 = InputBox("y1=")

Cls

Print "Point A (" & x1 & "," & y1 & ")"

x2 = InputBox("x2=")

y2 = InputBox("y2=")

Print "Point B (" & x2 & "," & y2 & ")"

Print "Length AB=" & L(x1, y1, x2, y2)

End Sub