初心者でテキストを進めて勉強しています。

2つの8次元ベクトルの内積を求めたいです。
　SubまたはFunvctionが定義されていません。とでてしまいます。
どのように処理をすればいいでしょうか？


    Const tsize As Integer = 8
    Dim a(8) As Single  
    Dim b(8) As Single  
    Dim c(8) As Single  
    Dim d As Integer       
    Dim i As Single         
    
    
    Worksheets("sheet1").Activate
    For i = 1 To 8
        a(i) = Cells(i, 1).Value
        b(i) = Cells(i, 2).Value
        c(i) = Cells(i, 3).Value
    Next i
    
    '内積の計算  
    For i = 1 To 8
    d = a(i) * b(i) 
    Next i
    
    
    
    Cells(tsize + 2, 1).Value = "i"
    Cells(tsize + 2, 2).Value = "a(i)"
    Cells(tsize + 2, 3).Value = "b(i)"
    Cells(tsize + 2, 4).Value = "Σa(i)*b(i)"
    
    

   For i = 1 To 8
    Cells(i + tsize + 2, 1).Value = i
    Cells(i + tsize + 2, 2).Value = a(i)
    Cells(i + tsize + 2, 3).Value = b(i)
    
    
   
    Cells(i + tsize + 2, 4).Value = Σa(i) * b(i)
    
           
    Next i
    
    
End Sub