新建From1（窗体），新建Command1（按钮CommandButton），Text1（TextBox）代码：

Private Sub Command1_Click()
    Debug.Print Me.TextHeight("A") '得到A的高度，比如195
    Debug.Print Me.TextHeight("你") '得到你的高度，比如195
    
    Me.FontName = "宋体"
    Me.FontSize = 60 '设置新的字体大小
    Print "你好ABCabc" '在窗体打印文字
    Debug.Print Me.TextHeight("A") '得到A的高度，比如默认的TaHoma是1455
    
    Debug.Print Text3.Height '打印 Text3 的高度
End Sub

运行结果：

 195 
 195 
 1200 
 285