Найти сумма ряда - VB

Private Sub Command1_Click()
Dim x, s As Single, n As Integer, h As Integer, m As Integer
s = 0
If Check1.Value = True Then
 h = 1
 x = 7.5
 m = 25
End If
 If Check2.Value = True Then
 h = 3
 x = 12
 m = 37
 End If
For n = 1 To m Step h
s = s + (x ^ (2)) / ((n ^ (3)) * (n ^ (1 / 2)))
Next n
Text1 = Str(h)
Text2 = Str(x)
Text3 = Str(m)
Text4 = Str(s)
End Sub