Text word count statistics

Question

sourece
Option Explicit
Dim myDoc As New Document
Private Sub Command2_Click()
On Error Resume Next
Dim wordDlg As Word.Dialog
myDoc.Range = Text1.Text
Set wordDlg = myDoc.Application.Dialogs(wdDialogDocumentStatistics)
wordDlg.Execute
Label1.Caption = "单词数" & Str(wordDlg.Words) & "词"
Label2.Caption = "字符数" & Str(wordDlg.Characters) & "字符"
End Sub

question
The above is VB6 code

Excuse me in vs2019 transcoding?

answer