填空题

窗体上有一个名称为Textl的文本框和一个名称为Commandl、标题为“计算”的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。
 　　
Private Sub Command1_Click()
Dim x As Integer
x = Val(InputBox("输入数据"))
Text1 = Str(fun(x) + fun(x) + fun(x))
End Sub
Private Function fun(ByRef n As Integer)
If n Mod 3 = 0 Then
n = n + n
Else
n = n * n
End If
______  = n
End Function
当单击命令按钮，在输入对话框中输入2时，文本框中显示的是  ______