VB简单截取字符串

楼主的意思就是截取网址的网页字段之前的部分吧？

dim strTemp() as string
dim i as single
dim strString as string
dim strResult as string

strString=inputbox("Your string")
if strString<>"" then
strTemp=split(strString, "/")
else
exit sub
end if

for i=0 to ubound(strTemp)-1
strResult=strResult & strTemp(i)
next

纯手敲，没有VB里测试，大概是这个意思，楼主再修修

用Left、Right、Mid等函数可以对字符串进行截取，例如：
s = "http://zhidao.baidu.com/question/26970330.html"
a = Left(s, 32)
MsgBox a

比如
left(http://zhidao.baidu.com/question,4)
结果
"http"

楼上都不具有通用性

Private Sub Command1_Click()
a = 地址
MsgBox Left(a, InStrRev(a, "/") - 1)
End Sub