Private Sub UserForm_Initialize()
TextBox1.MultiLine = True
TextBox1.Text = "Private Sub 佣金分析位置_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)" & vbCrLf & _
"ifilename = Application.GetOpenFilename" & vbCrLf & "If ifilename = " & """" & "False" & """" & " Then" & vbCrLf & _
" MsgBox " & """" & "没有选择文件!" & """" & vbCrLf & "Else" & vbCrLf & " ?????? = ifilename" & vbCrLf & "End If" & vbCrLf & "End Sub"
End Sub