'=========================================================连接数据库取值=================================================================
  Dim Cnn,result ,resultstring
  Set Cnn=CreateObject("ADODB.Connection")
  Cnn.ConnectionString="DSN=Oracle;UID=popware;PWD=popware;DBQ=POPDB_NEW

;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=O;;"
  Cnn.Open
  If Cnn.state = 0 Then
   Reporter.ReportEvent  micFail ,"数据库连接:","连接失败"
  else
     Reporter.ReportEvent  micPass,"数据库连接:","连接成功"
  End If
  strsql="select VENDER_ID from  VENDER_SHOP where VENDER_ID=20921"
 
 '  strsql2="select count(*) from  VENDER_SHOP where VENDER_ID=10001"
  set Rs=CreateObject("ADODB.Recordset")
     Rs.Open strsql,Cnn,0,1
   result=Rs("VENDER_ID")
    '  msgbox typename (result)
   resultstring=cstr(result) '数值转换为字符串

字符串：我爱360buy网站

我们需要获得的：360buy

代码：

Private Sub Command1_Click()
    Dim s As String
    Dim l As Long
   
    s = "我爱360buy网站"  '截取出360buy
    l = InStr(s, "网") - InStr(s, "爱")
    If InStr(s, "爱") > 0 And l > 0 Then Print Mid(s, InStr(s, "爱") + 1, l - 1)
End Sub

Option Explicit '强制变量声明
Const ForReading= 1,ForWriting = 2,ForAppending = 8'1读 2写 3追加写
Dim fso,file
Set fso= CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("d:\test.txt", true)
file.write "=================================="
file.WriteBlankLines(1) '换行，相当于一个回车
file.write"登陆成功"
file.WriteBlankLines(1)
file.write "=================================="

file.Close
Set file = Nothing
Set fso= Nothing