怎么样去掉字符串最后面的l四位

yuangw1234

vba中有只取字符串后面的四位right(str,4)函数，请问有没有去掉后面的四位，如

abcd.dwg或abcdef.prt等，这两个字符串我只要abcd及abcdef,当然点号前面的位数是不定的

因为字符串只能加而不能减，我傻做了下面一个程式，结果在我意料中

请问大师提供一个去掉后面四位的方法，谢谢！

Public Sub caption()
Dim str As String, str1 As String, str2 As String
str = ThisDrawing.Name: str1 = Right(str, 4)
str2 = str - str1
MsgBox str2
End Sub

xinghesnak

str = ThisDrawing.Name

str1 = replace(str,right(str,4),"")

mikewolf2k

left(str,(len(str)-4))

yuangw1234

谢谢两位大师