关于一个 sub command 调用另一个的 sub command 的问题

刚开始学习VB 遇到问题，请教大侠们
Private Sub Command2_Click()
     p=w*w
     print p
End Sub
Private Sub Command2_Click()
     p=0
     print p
End Sub

Private Sub Command4_Click()
For i = -2  To 2 Step 0.1
If Sin(i) > 0.5 Then
       w = Sin(i)
       Call Command2_Click
Else
       w = Sin(i)
       Call Command3_Click
End If
Next i
End Sub
如上所示。我在command4中调用了command2和3，但是他们不能使用command4中的w值。请问该如何解决这样的问题。
这个程序是简化的，把command2和command3的内容写在command4里太麻烦了。
希望大侠指点，谢谢！！！