主题：求助 删除右边字符串

trim只能一个字符。

Dim s As String = "AAA1801047"  
Dim rt As String = s.SubString(0, s.Length - 7)
msgbox(rt)