请VB高手来帮我看看我的代码有什么问题！！

Public Sub N(ByVal intA As Integer, ByVal intB As Integer, ByVal intC As Integer)
Dim strR As String
strR = "在sub过程中交换之前，A=：" & intA & Chr(10)
strR = strR & "在sub过程中交换之前，B=：" & intB & Chr(10)
strR = strR & "在sub过程中交换之前，C=：" & intC & Chr(10)
Dim intR As Integer
intR = intA
intA = intB
intB = intC
intC = intR
strR = strR & "在sub过程中交换之后，A=：" & intA & Chr(10)
strR = strR & "在sub过程中交换之前，B=：" & intB & Chr(10)
strR = strR & "在sub过程中交换之前，C=：" & intC
MsgBox StrC
End Sub

Private Sub Command1_Click()
Dim intX As Integer
intX = 1
Dim intY As Integer
intY = 2
Dim intZ As Integer
intZ = 3
Dim strR As String
strR = "在传呼代码中传值调用之前，X=：" & intX & Chr(10)
strR = strR & "在传呼代码中传值调用之前，Y=：" & intY & Chr(10)
strR = strR & "在传呼代码中传值调用之前，Z=：" & intZ & C

请VB高手帮我看看这段代码 请高手来帮我看一段VB代码! 请教高手帮我看看vb代码的问题 请懂VB的人帮我看看这代码 vb高手来帮我看看 高手来帮我看看这个代码 请高手帮我看看代码是什么意思～ 请VB高手帮我看看分析解释这段代码:谢谢 请帮我看看这段vb代码 请高手帮我看看这段反汇编的代码