ลอง

MySum: Sum([Field1]+[Field2]+[Field3])

ส่วน Stdev() จะรับค่าเป็น Array จึงไม่สามารถใช้

MyStdev: Stdev([Field1],[Field2],[Field3])

คงต้องอาศัย Stdev() ของ Xcel มาช่วยมั๊งครับ

Function XcelStdev(int1 As Integer, int2 As Integer, int3 As Integer) As Double
Dim xls As Object
Set xls = CreateObject("Excel.Application")
Dim MyArray As Variant
MyArray = Array(int1, int2, int3)
XcelStdev = xls.WorksheetFunction.StDev(MyArray)
End Function

แล้วใส่ค่านี้ลงไป

MyStdev: XcelStdev([Field1],[Field2],[Field3])

ลองดูครับ