vb 如何给静态变量赋初值

vb中不能在变量声明时赋默认值以外的初值，想要给静态变量赋初值，必须增加一个标志变量，如：

Sub ss()
    Static i As Integer, f As Boolean
    If Not f Then i = 3: f = True
    '运行代码
End Sub

附：计数程序（在这个程序中，没有给静态变量赋初值，默认赋值为0）

Private Sub Command1_Click()

    Static j As Integer
    j = j + 1           '计数
    If j > 3 Then                               '超过3次提示
        MsgBox ("你已经点击了 " & j & " 次")
        Exit Sub                                '这个退出毫无意义？
    End If
    
End Sub