Option Explicit
Dim mPath$
Private Sub Form_Load() ' 初始化模块
Dim cTS$ ' 定义局部变量
cTS = "……"
cTS = cTS & Environ("ComputerName")
cTS = cTS & "."
cTS = cTS & Environ("UserName")
Me.Caption = cTS
mPath = App.Path ' 获取程序所在的路径,无需再定义 mPath$
If Right(mPath, 1) <> Chr(92) Then mPath = mPath & Chr(92)
' ……
End Sub