Массивы: вычислить значения заданной функции большие, чем A - VB

Sub Main()
   Dim a As Single, k As Integer, b As Single, z As Single, s As String
   'вычислить значение функции z=b^k/k^2 большие чем a, если k=1,2.....,20. b=0,5 . a=3.
    a = 3
    b = 0.5
    For k = 1 To 20
      z = b ^ k / k ^ 2
      If z > a Then s = s & "k = " & k & vbTab & "z = " & z & vbCrLf
    Next k
    MsgBox IIf(s = "", "Ни одно из значений z не больше a", s)
End Sub