Code for Standard Normal

I am trying to code standard normal with standard deviation of (3) and NormalMean = (31).

I am very new at this any suggestions would be greatly appreciated. Here is what I have so far:

Sub NormalDist(z)
Dim NormalMean As Integer
Dim NormalSD As Integer
Dim x As Integer

x = 31
NormalMean = 31
NormalSD = 3
N = 10

NormDist(z)= (31,31,1)
Cells(3, 3).Value = NormDist

End Sub