感谢问题者在最佳答案里追问中提供的答案，特意从中提取出来供同样有此问题的人解惑。
Dim GPS() As gp
ReDim Preserve GPS(1)
GPS(0) = New gp()
GPS(0).gpa = "值"
亲测有效，再次感谢问题者得到答案后不忘写出来。
补充：也可以这样：
Dim GPS(0) As gp
GPS(0) = New gp()
GPS(0).gpa = "值"
Public GPS As new gp
你出的问题不是很明显吗，就这句对的，其他都没用new
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024