在VBA（Visual Basic for Applications）中，你可以使用以下步骤来去掉文件名中的后缀名：
1. 获取文件名。
2. 找到文件名中的最后一个点（`.`）的位置。
3. 使用Mid、Left或Right函数来截取最后一个点之前的部分，即去掉后缀名。
以下是一个VBA函数的示例，该函数接受一个文件名作为输入，并返回去掉后缀名的文件名：
```vba
Function RemoveExtension(filename As String) As String
Dim lastDotIndex As Integer
lastDotIndex = InStrRev(filename, ".")
If lastDotIndex > 0 Then
RemoveExtension = Left(filename, lastDotIndex 1)
Else
RemoveExtension = filename
End If
End Function
```
使用这个函数的方法如下：
```vba
Sub TestRemoveExtension()
Dim originalFilename As String
Dim newFilename As String
originalFilename = "example.txt"
newFilename = RemoveExtension(originalFilename)
MsgBox "Original: " & originalFilename & vbCrLf & "Without Extension: " & newFilename
End Sub
```
当你运行这个子程序时，它会弹出一个消息框，显示原始文件名和去掉后缀名后的文件名。在这个例子中，"example.txt" 会变成 "example"。
