EXCEL VBA中，如何使一个自定义函数工作起来？

Question

我有一个TextBox1，数个Label(Label1,Label2,Label3...)，并且自定义了一个函数：
Function char_a(q As String, w As Single)
If Len(q) < 0 Or w <= 0 Then
MsgBox "函数参数错误"
Exit Function
Else
i = TextBox1.SelStart
n = Left(TextBox1.Value, TextBox1.SelStart)
m = Right(TextBox1.Value, Len(TextBox1.Value) - TextBox1.SelStart)
TextBox1.Value = n & q & m
TextBox1.SelStart = i + w
End If
End Function

然后，我为每一个Label写如下模块：
Private Sub Label1_Click()
char_a("[n]",3)
End Sub

Private Sub Label2_Click()
char_a("[p##]",4)
End Sub

Private Sub Label3_Click()
char_a("[mp##]",5)
End Sub
.
.
.
但是在运行时，报错语法错误。我用过Lua，Flash AS等等脚本语言，但是不太熟悉VB的自定义函数，差帮助也差不出来什么，希望各位大大帮助解决！可能代码比较多，我多给些分数，拜托了各位！

Answer 1

你用function的话，这个是个函数，是个值，当然不能在那儿孤零零的使用。
要这样用，a=char_a("[n]",3)，要赋予某个变量。
而sub就不一样了，本身只是个子程序，调用即可。
call sub(a,b)或者sub a,b
修改后的结果，楼主查收：
Sub char_a(q As String, w As Single)
If Len(q) < 0 Or w <= 0 Then
MsgBox "函数参数错误"
Exit Sub
Else
With UserForm1 '估计楼主是在某个窗体中使用的，姑且定为userform1
i = .TextBox1.SelStart
n = Left(.TextBox1.Value, .TextBox1.SelStart)
m = Right(.TextBox1.Value, Len(.TextBox1.Value) - .TextBox1.SelStart)
.TextBox1.Value = n & q & m
.TextBox1.SelStart = i + w
End With
End If
End Sub

各个模块使用如下：
Private Sub Label1_Click()
Call char_a("[n]", 3)

End Sub
Private Sub Label2_Click()
Call char_a("[p##]", 4)
End Sub

Private Sub Label3_Click()
Call char_a("[mp##]", 5)
End Sub
运行成功！

Answer 2

function有回传的值 调用的时候写，
dim kkk as integer
kkk=aaa(4)
sub没有回传值，只在方法体内进行代码执行。相当于VC中的void

public sub kkk(byval zzz as integer)
...
end sub
调用的时候写
call kkk(4)
或： kkk(4)

Answer 3

你函数放在什么地方了？？
函数放在模块里的话，最好前面加上public。
因为click代码你肯定放在form里的，如果函数放在模块里的话没有public是调用不到的。