在VB程序中，有两个按钮的代码中如何编写使用同一子程序

初学者求助，我在VB中有两个按钮，要使用一个公用的子程序！这个子程序是怎么写的，请给一个完整的调用语句示例和一个完整的子程序样板，谢谢！

sub TestFunction(btnName as String)
msgbox btnName
End Sub

sub Command1_Click()
call TestFunction("Command1")
End Sub

sub Command2_Click()
call TestFunction("Command2")
End Sub

private sub command1_click()

    call dest()

end sub

static sub test()

   dim a(2) as integer

    a(0)=a(0)+1

    a(1)=a(1)+1

    print a(0);a(1)

end sub