Используя процедуру или функцию, вычислить выражение - VB

Option Explicit
 
Private Sub Command1_Click()
    Dim TT As Single, s As Single, t As Single
       
    s = InputBox("s = ", , 2.5)
    t = InputBox("t = ", , 8)
    
    TT = g(12, s) + Sqr(Abs(g(t, s))) - (g(2 * s - 1, s * t)) ^ 2
    
    MsgBox TT
End Sub
 
Function g(ByVal a As Double, ByVal b As Double) As Double
   'Насчет квадратных скобок не уверен
    g = 1 / ((a ^ 2 + b ^ 2) / (a ^ 2 + 2 * a * b + 3 * b ^ 2 + 4))
End Function