这个错误消息的提示是“不能在非用户界面的状态下使用模态对话框”，你的这个程序是console（命令行）或者是无界面的？只能在有界面的程序中使用对话框的。
成都创新互联-专业网站定制、快速模板网站建设、高性价比潘集网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式潘集网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖潘集地区。费用合理售后完善，10多年实体公司更值得信赖。
Dim tmp = InputBox("输入你需要的文字", "我是标题", "我是默认值")
不仅是打开文件对话对话框，也可以打开保存文件对话框和颜色对话框，字体对话框，打印机对话框等。
如：
'打开文件对话框
CommonDialog1.ShowOpen
'打开字体对话框
CommonDialog1.ShowFont
'打开颜色对话框
CommonDialog1.ShowColor
具体可参考中国VB网：
可以利用font 设置。设置方法如下：
TextBox1.Font = New System.Drawing.Font("宋体", 10)
也可以通过字体对话框来实现 如：
Private Sub myButton_Click(sender As Object, e As EventArgs)
Dim myFontDialog As FontDialog
myFontDialog = New FontDialog()
If myFontDialog.ShowDialog() = DialogResult.OK Then
' Set the control's font.
myDateTimePicker.Font = myFontDialog.Font
End If
End Sub