新人入会，请教个问题

建议先定义一个字符变量，把要显示的内容描述清楚了再说——
Private Sub Command3_Click()
Dim cTS$, n%
n = MsgBox("确定要退出吗？", 4 + 32, "系统提示")
If n = 6 Then '　点击了【是】
cTS = "正确数：" & CStr(j - n) & " 个；"
cTS = cTS & "错误数：" & CStr(n) & " 个；"
cTS = cTS & vbCrLf & vbCrLf
cTS = cTS & "用时：" & LabTime.Caption & " 秒。"
MsgBox cTS, 0 + 64, "计算结果"
Unload Me: End
End If
End Sub

消息对话框【MsgBox】
函数形式：
Dim E%, cTS$
cTS = "要提示的文字信息"
E = MsgBox(cTS, x + y, "对话框左上角标识文字")
命令格式：
Dim cTS$
cTS = "要提示的文字信息"
MsgBox cTS, x + y, "对话框左上角标识文字"
' x 的值代表有什么样的按钮 -------------
0 有【确定】按钮
1 有【确定】【取消】按钮
2 有【终止】【重试】【忽略】按钮
3 有【是】【否】【取消】按钮
4 有【是】【否】按钮
5 有【重试】【取消】按钮
' y 的值所代表用什么样的图标 -----------
16 关键信息图标
32 询问信息图标
48 警告信息图标
64 信息图标
' 点击按钮后 MsgBox() 函数返回的值
1 【确定】按钮
2 【取消】按钮
3 【终止】按钮
4 【重试】按钮
5 【忽略】按钮
6 【是】按钮
7 【否】按钮
例如：函数格式——
出现【确定】【取消】按钮的询问消息对话框。
cTS = "认可这些计算结果吗？"
E = MsgBox(cTS, 1 + 32, "系统提示")
If E = 1 THEN
'　E = 1，点击了【确定】按钮
'　……
Else
'　E = 2，点击了【取消】按钮
'　……
End If
例如：命令格式——
cTS = "表格文件已经生成 ——"
cTS = cTS & vbCrLf & vbCrLf
cTS = cTS & "D:\备份数据\表格文件\BG201508.CSV"
MsgBox cTS, 0 + 64, "系统提示"

建议先学会截图再学VB