在VB编程中，可以使用以下几种方法来更改文件名：
方法一：使用`Name`语句
`Name`语句可以用来重新命名文件、目录或文件夹。其语法如下：
```vb
Name oldpathname As newpathname
```
示例代码：
```vb
Dim OldName, NewName
OldName = "C:\MYDIR\OLDFILE"
NewName = "C:\YOURDIR\NEWFILE"
Name OldName As NewName
```
此方法适用于在同一驱动器中重命名文件或文件夹，并且不能创建新文件、目录或文件夹。
方法二：使用`FileSystemObject`对象
通过`FileSystemObject`对象，可以使用`MoveFile`方法来批量修改文件名。示例代码如下：
```vb
Dim fso As Object
Dim folder As Object
Dim file As Object
Dim oldName As String
Dim newName As String
Set fso = CreateObject（"Scripting.FileSystemObject"）
Set folder = fso.GetFolder（"C:\your\folder\path\"）
For Each file In folder.Files
oldName = file.Name
newName = "new_" & oldName
fso.MoveFile file.Path, folder.Path & "\" & newName
Next file
Set file = Nothing
Set folder = Nothing
Set fso = Nothing
```
此方法允许你遍历指定文件夹中的所有文件，并按照指定的规则修改文件名。
方法三：使用`Dir`和`循环结构
可以通过`Dir`函数和循环结构来批量修改文件名。示例代码如下：
```vb
Sub BatchRenameFiles（）
Dim FSO As Object
Dim folder As Object
Dim file As Object
Dim newName As String
Dim i As Integer
Dim oldName As String
Set FSO = CreateObject（"Scripting.FileSystemObject"）
Set folder = FSO.GetFolder（"C:\YourFolder"）
i = 1
For Each file In folder.Files
oldName = file.Name
newName = "new_" & oldName
file.Name = newName
i = i + 1
Next file
Set file = Nothing
Set folder = Nothing
Set FSO = Nothing
End Sub
```
此方法通过遍历文件夹中的所有文件，并使用`file.Name`属性直接修改文件名，从而实现批量重命名。
方法四：使用自定义函数
可以编写自定义函数来获取文件名，并在需要时调用该函数进行批量修改。示例代码如下：
```vb
Function GetFileName（ByVal FilePath As String） As Variant
Dim fName As String
Dim X As Integer
Dim Arr（） As Variant
fName = Dir（FilePath, vbNormal）
Do Until Len（fName） = 0
X = X + 1
ReDim Preserve Arr（1 To X）
Arr（X） = fName
fName = Dir
Loop
GetFileName = Arr
End Function
Sub RenameFiles（）
Dim fso As Object
Dim folder As Object
Dim file As Object
Dim oldName As String
Dim newName As String
Dim i As Integer
Set fso = CreateObject（"Scripting.FileSystemObject"）
Set folder = fso.GetFolder（"C:\your\folder\path\"）
i = 1
For Each file In folder.Files
oldName = file.Name
newName = "new_" & oldName
file.Name = newName
i = i + 1
Next file
Set file = Nothing
Set folder = Nothing
Set fso = Nothing
End Sub
```
此方法通过自定义函数`GetFileName`获取文件名，并在`RenameFiles`子程序中遍历文件夹并修改文件名。
总结
以上方法均可用于在VB编程中更改文件名，具体选择哪种方法取决于你的需求和编程环境。如果需要遍历文件夹并批量修改文件名，建议使用方法二或方法三。如果只需要修改单个文件名，可以使用`Name`语句或自定义函数。