下列程序运行后，信息框显示的内容是()。

Private Sub Command1_Click()

D．im s1 As String

D．im s2 As Integer

s1 = "Hello-World,2004"

s2 = Len(s1) + InStr(1, s1, "2")

MsgBox s2

E．nd Sub

A．Hello-World

B．2003

C．16

D．29