VB中怎么识别本目录?就是我所写的程序所在目录?

可以调用 App.Path()返回一个字串，这个字串就是当前程序目录。你运行一下这个代码就行了：

'新建工程，双击窗口，在
private sub form_load()
和
end sub
之间加入下面的代码：
dim Str as string
str="当前目录是 " & app.path
msgbox str
end

-----------
msgbox 都不知道？刚学VB的吧？
Msgbox是一个VB本身提供的函数，用于弹出一个对话框，里面可以显示你要显示的文字

Msgbox "你要显示的文字“
这个是常用的调用方法，还有很多个调用方法，具体看资料

msgbox app.path

你编译成程序执行一下怎么知道了？
弹出消息，消息内容就是程序所在路径