MinValue = 9999999 ' とりあえず大きな整数
For I = 0 To Cnt - 1
Diff = A(I) - N
Abso = Diff * Diff
If Abso < MinValue Then
MinValue = Abso
End If
Next

WScript.Echo MinValue

' 未確認。