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

Private Sub Command1_Click()
    Dim jsonString$
    jsonString = "{" & vbCrLf & _
            "  ""key1"": ""value1""," & vbCrLf & _
            "  ""key2"": 12345," & vbCrLf & _
            "  ""key3"": true" & vbCrLf & _
            "}"

    Debug.Print jsonString ' 输出JSON字符串

    Dim fileNum&: fileNum = FreeFile
    Open App.Path & "/output.json" For Output As #fileNum
        Print #fileNum, jsonString
    Close #fileNum
End Sub

运行结果：

{
  "key1": "value1",
  "key2": 12345,
  "key3": true
}

我这里生成的文件是UTF-8。